tests/testthat/helper-01-edsurveyHome.R

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/"
  }
}

Try the EdSurvey package in your browser

Any scripts or data that you put into this service are public.

EdSurvey documentation built on June 27, 2024, 5:10 p.m.