No known key found for this signature in database
GPG Key ID: 1D7529BE14E2BBA9
2 changed files with
8 additions and
5 deletions
-
R/usage.R
-
tests/testthat/test-packettotal.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 |
|
|
|
|
|
|
|
|
|
@ -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)) |
|
|
|
|
|
|
|
}) |
|
|
|