data-raw/SiteTypeCV.R

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

# This script brings in the CUAHSI ODM SiteType CV

library(rvest)
library(dplyr)

# Read from CUAHSI

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

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