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.va_hdcttrbg_sdad_2021_perc_income_on_internet: Perc_Income_on_Internet.RMD

# Ex database_table_name: "va_hd_vdoe_2019_2021_3rd_grade_mean_median_read_score"
table_names = c("va_hdcttrbg_sdad_2021_perc_income_on_internet")

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))  

if (length(table_names) > 1)
{
  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_dat <- all_geos_dat[all_geos_dat$region_type != "block group",]
all_geos_file_name <- "va_hdcttr_broadbandnow_acs_sdad_2021_perc_income_on_internet"  #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.