In uva-bi-sdad/dc.broadbandnow.broadband_prices: National Capital Region Internet Prices

knitr::opts_chunk$set(echo = TRUE)

Get dataset DOI

dataset_doi <- readLines(here::here("data/dataset_doi"))[1]

Code you used to create dataset - LIST BELOW

dc_digital_communications.ncr_bg_broadband_now_2021_internet_package_price_update, dc_digital_communications.ncr_tr_broadband_now_2021_internet_package_price_update dc_digital_communications.ncr_ct_broadband_now_2021_internet_package_price: DMV_Internet_Prices.RMD

dc_digital_communications.ncr_bg_broadband_now_2021_internet_package_price_100_20, dc_digital_communications.ncr_tr_broadband_now_2021_internet_package_price_100_20, dc_digital_communications.ncr_ct_broadband_now_2021_internet_package_price_100_20: Price_Code_100_20.RMD

# Ex database_table_name: "va_hd_vdoe_2019_2021_3rd_grade_mean_median_read_score"
table_names = c("ncr_bg_broadband_now_2021_internet_package_price_update",
                "ncr_tr_broadband_now_2021_internet_package_price_update",
                "ncr_ct_broadband_now_2021_internet_package_price",
                "ncr_bg_broadband_now_2021_internet_package_price_100_20",
                "ncr_tr_broadband_now_2021_internet_package_price_100_20",
                "ncr_ct_broadband_now_2021_internet_package_price_100_20")

con <- get_db_conn()

dat_file_name <- table_names[1]
db_schema_name <- "dc_digital_communications"  # Ex database schema_name: dc_education_training
all_geos_dat <- DBI::dbReadTable(con, c(db_schema_name, dat_file_name))  

for (i in 2:length(table_names))
{ 
  dat_file_name <- table_names[i]
  dat <- DBI::dbReadTable(con, c(db_schema_name, dat_file_name)) 

  all_geos_dat <- rbind(all_geos_dat, dat)  
}

DBI::dbDisconnect(con)

all_geos_file_name <- "ncr_cttrbg_2021_broadband_now_internet_package_price"  #Ex: "va_vdoe_2019_2021_3rd_grade_mean_median_read_score"
assign(all_geos_file_name, all_geos_dat)

Write to compressed file

dat_file_path <- here::here(paste0("data/", all_geos_file_name, ".csv.xz"))

readr::write_csv(get(all_geos_file_name),
                 xzfile(dat_file_path, compression = 9))

Upload Files to Dataverse Dataset

dataverse::add_dataset_file(
  file = dat_file_path,
  dataset = dataset_doi,
  key = Sys.getenv("DATAVERSE_KEY"),
  server   = Sys.getenv("DATAVERSE_SERVER"),
  description = all_geos_file_name
)

uva-bi-sdad/dc.broadbandnow.broadband_prices documentation built on June 13, 2022, 4:41 a.m.