diff --git a/DESCRIPTION b/DESCRIPTION index b5792d9..c92c91e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -4,7 +4,8 @@ Version: 0.3.4 Authors@R: c(person("David", "Schoch", , "david@schochastics.net", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2952-4812")), person("Chung-hong", "Chan", ,"chainsawtiney@gmail.com", role = c("aut"), comment = c(ORCID = "0000-0002-6232-7530")), - person("Johannes", "Gruber", ,"JohannesB.Gruber@gmail.com", role = c("ctb"), comment = c(ORCID = "0000-0001-9177-1772"))) + person("Johannes", "Gruber", ,"JohannesB.Gruber@gmail.com", role = c("ctb"), comment = c(ORCID = "0000-0001-9177-1772")), + person("Tim", "Schatto-Eckrodt", ,"kudusch@posteo.de", role = c("ctb"), comment = c(ORCID = "0000-0003-1658-4373"))) Description: An implementation of calls designed to collect and organize Mastodon data via its Application Program Interfaces (API), which can be found at the following URL: . License: MIT + file LICENSE URL: https://gesistsa.github.io/rtoot/, https://github.com/gesistsa/rtoot/ diff --git a/R/utils.R b/R/utils.R index 568c54f..575397a 100644 --- a/R/utils.R +++ b/R/utils.R @@ -237,15 +237,23 @@ rtoot_ask <- function(prompt = "enter authorization code: ", pass = TRUE, check_ return(passFun(prompt = prompt)) } +handle_id <- function(x) { + ## Convert x to snowflake id if it is POSIXct + if (is(x, "POSIXct")) { + return(as.numeric(x) * (2^16) * 1000) + } + x +} + handle_params <- function(params, max_id, since_id, min_id) { if (!missing(max_id)) { - params$max_id <- max_id + params$max_id <- handle_id(max_id) } if (!missing(since_id)) { - params$since_id <- since_id + params$since_id <- handle_id(since_id) } if (!missing(min_id)) { - params$min_id <- min_id + params$min_id <- handle_id(min_id) } params }