data-raw/ValueTypeCV.R

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

# This script brings in the CUAHSI ODM ValueType CV

library(rvest)
library(dplyr)

# Read from CUAHSI

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

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