R/nhs_DOC.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

#' browse DOC page
#'
#' @param tsv tsv
#'
#' @return open DOC page
#' @export
#'
nhs_DOC <- function(tsv){
    (years <- prepare_years(tsv))
    years[years=='2019-2020'] <- '2017-2018'
    (items <- prepare_items(tsv))
    (files <- do::file.name(tsv) |> do::Replace(c('\\.tsv','\\.varLabel'),'\\.htm'))
    (url <- sprintf('https://wwwn.cdc.gov/Nchs/Nhanes/%s/%s',years,files))
    for (i in url) {
        browseURL(i)
    }
}