tests/testthat/helper-01-edsurveyHome.R

In EdSurvey: Analysis of NCES Education Survey and Assessment Data

on_spp <- ifelse(dir.exists("I:/NCES"),TRUE,FALSE)

if (!exists("edsurveyHome")) {
  if (Sys.info()[["sysname"]] == "Windows") {
    if(on_spp) {
      edsurveyHome <- "P:/EdSurveyData/"
    } else {
      edsurveyHome <- "C:/EdSurveyData/"
    }
  } else {
    edsurveyHome <- "~/EdSurveyData/"
  }
}