diff --git a/R/usage.R b/R/usage.R index d66f926..7c1b77e 100644 --- a/R/usage.R +++ b/R/usage.R @@ -18,9 +18,9 @@ pt_usage <- function(api_key = packettotal_api_key()) { httr::stop_for_status(res) - out <- httr::content(res, as = "text") + out <- httr::content(res, as = "text", encoding = "UTF-8") - out <- jsonlite::fromJSON(out, encoding = "UTF-8") + out <- jsonlite::fromJSON(out) out diff --git a/tests/testthat/test-packettotal.R b/tests/testthat/test-packettotal.R index 0c22968..3328b4b 100644 --- a/tests/testthat/test-packettotal.R +++ b/tests/testthat/test-packettotal.R @@ -1,6 +1,9 @@ context("minimal package functionality") -test_that("we can do something", { - #expect_that(some_function(), is_a("data.frame")) +skip_on_cran() + +expect_true("user" %in% names(pt_usage())) + +x <- pt_info("d210f4dbea97949f694e849507951881") +expect_true("md5" %in% names(x$pcap_metadata)) -})