data-raw/VariableNameCV.R

In EDIorg/hymetDP: Tools to Create, Use, and Convert hymetDP data

# This script brings in the CUAHSI ODM VariableName CV

library(rvest)
library(dplyr)

# Read from CUAHSI

VariableNameCV <- rvest::read_html("http://his.cuahsi.org/mastercvreg/edit_cv11.aspx?tbl=VariableNameCV") %>%
  rvest::html_elements("#dgCV_11") %>%
  rvest::html_table(header = TRUE) %>%
  .[[1]] %>%
  dplyr::select(-1)

# Save to /data
usethis::use_data(VariableNameCV, overwrite = TRUE)