19 lines
435 B
R
19 lines
435 B
R
library(jsonlite)
|
|
library(httr)
|
|
|
|
|
|
source(file.path(here::here(),"secrets"))
|
|
# Create a Bearer token header
|
|
headers.default <- add_headers(
|
|
accept = "*/*",
|
|
apikey = token2
|
|
)
|
|
|
|
test_that("get station return something right",
|
|
{
|
|
test=getStationData(start_date="2024-06-24",end_date="2024-08-14",station_id="38269004",headers=headers.default)
|
|
if(!is.null(test)){testthat::expect_length(test,3)}
|
|
else testthat::expect_null(test)
|
|
})
|
|
|
|
|