View source: R/nsrr_datasets.R
nsrr_datasets | R Documentation |
NSRR data sets
nsrr_datasets(token = nsrr_token(), page = NULL)
nsrr_dataset(dataset = NULL, token = nsrr_token())
nsrr_dataset_files(dataset = NULL, path = NULL, token = nsrr_token())
token |
Token for NSRR resources. Found at https://sleepdata.org/token |
page |
which page to grab. Increment over successive requests to retrieve all datasets. A request that return NULL or a number of datasets less than 18 indicates the last page. |
dataset |
a dataset |
path |
a folder or file path inside the dataset |
A data.frame
of the data sets and their endpoints
df = nsrr_datasets(page = 1)
on_cran = !identical(Sys.getenv("NOT_CRAN"), "true")
on_ci <- nzchar(Sys.getenv("CI"))
local_run = grepl("musch", tolower(Sys.info()[["user"]]))
run_example = !on_cran || on_ci || local_run
if (run_example) {
df = nsrr_datasets()
if (attributes(df)$status_code == 200) {
testthat::expect_is(df, "data.frame")
slugs = c("abc", "bestair", "chat", "ccshs", "cfs",
"heartbeat", "hchs", "homepap", "haassa", "learn")
testthat::expect_true(all(slugs %in% df$slug))
}
}
nsrr_dataset(dataset = "shhs", token = "")
dataset = "shhs"
token = NULL
df = nsrr_dataset_files(dataset)
ddf = nsrr_dataset_files(dataset, path = df$full_path[1])
dataset = "shhs"
token = NULL
df = nsrr_dataset_files(dataset)
nsrr_dataset_files(dataset = "wecare")
testthat::expect_error(nsrr_dataset_files(), "one data")
testthat::expect_error(nsrr_dataset_files(c("shhs", "chat")), "one data")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.