tests/test_helper.R

In ChrisBeeley/staff_survey: Staff survey

# test helper file

library(magrittr)

root <- rprojroot::is_r_package

staff_data <- load_staff_data(root$find_file("staff_data.csv"))

categories <- load_categories()

criticality <- data.frame(
  Number = -3 : 3, 
  Criticality = c("Highly critical", "Fairly critical", 
                  "Somewhat critical", "Not critical",
                  "Slightly positive", "Somewhat positive",
                  "Very positive")
)