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_cttrbg_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("ncr_cttrbg_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))  

# 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_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.