1 files changed, 1 insertions(+), 1 deletions(-)

M R/mercury.r

@@ 23,7 23,7 @@ just_the_facts <- function(url, mercury_api_key=Sys.getenv("MERCURY_API_KEY")) {
    res <- httr::content(res, as="text", encoding="UTF-8")
    res <- jsonlite::fromJSON(res, flatten=TRUE)
    res <- purrr::flatten_df(res)
-   res <- readr::type_convert(res, col_types=.hgr_cols)
+   res <- suppressWarnings(readr::type_convert(res, col_types=.hgr_cols))
 
    class(res) <- c("hgr")