R/paths_relative_read.R

In GregGu/dhsdata: What the Package Does (One Line, Title Case)

get_recode<- function(
  data_set_path = default_data_set_path()
) {
  path <- file.path(data_set_path, "recode.rds")
  data <- readRDS(path)
  data
}

get_df1<- function(
  data_set_path = default_data_set_path()
) {
  path <- file.path(data_set_path, "df1.rds")
  data <- readRDS(path)
  data
}

get_df2<- function(
  data_set_path = default_data_set_path()
) {
  path <- file.path(data_set_path, "df2.rds")
  data <- readRDS(path)
  data
}

get_df3<- function(
  data_set_path = default_data_set_path()
) {
  path <- file.path(data_set_path, "df3.rds")
  data <- readRDS(path)
  data
}