R/save_dta.R

In AmberlyDziesinski/ds: Files for Vanderbilt Data Science 1000

# This file contains misc code needed to develop the package, such as: opening files, saving files, last minute cleaning, etc.
# The code must be commented out when making the package
#     NOTE: ctl+shift+C to comment out multiple lines
#
#
# library(tidyverse)
# library(haven)
# library(devtools)


#use_mit_license("Amberly Dziesinski")

#stata files
# vote_gov_states <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\vote_data\\vote_gov_states.dta")
# vote_pres_national <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\vote_data\\vote_pres_national.dta")
# vote_pres_primaries <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\vote_data\\vote_pres_primaries.dta")
# vote_pres_states <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\vote_data\\vote_pres_states.dta")
# vote_sen_states <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\vote_data\\vote_sen_states.dta")
#
# usethis::use_data(vote_gov_states, overwrite = TRUE)
# usethis::use_data(vote_pres_national, overwrite = TRUE)
# usethis::use_data(vote_pres_primaries, overwrite = TRUE)
# usethis::use_data(vote_pres_states, overwrite = TRUE)
# usethis::use_data(vote_sen_states, overwrite = TRUE)

# book <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\books_data\\book.dta")
# usethis::use_data(book, overwrite = TRUE)

# sisfcf <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\ICPSR_04572\\SISFCF.dta")
# usethis::use_data(sisfcf, overwrite = TRUE)

# covid_cases <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\covid\\covid_cases.dta")
# usethis::use_data(covid_cases, overwrite = TRUE)
# covid_death <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\covid\\covid_death.dta")
# usethis::use_data(covid_death, overwrite = TRUE)
# covid_mask <- read_dta(file = "C:\\Users\\amber\\Documents\\data_sci\\covid\\covid_mask.dta")
# usethis::use_data(covid_mask, overwrite = TRUE)

##R files
#hsls <- load(file = "C:\\Users\\amber\\Documents\\data_sci\\hsls_data\\hsls.rda")
# usethis::use_data(hsls, overwrite = TRUE)



##MAKE TUTORIALS
#library(learnr)
#usethis::use_tutorial("conditional_means", "Conditional Means Tutorial", open = interactive())