R/meta_non_arts.R

In Ingenuity-Inc/artlookR: Work with artlook data

#' artlookR arts teacher / non-arts teacher metadata
#'
#' @return A list with the label names and corresponding levels for survey status.
#' @details This may be a bit excessive. It's just setting up the factors for when you need to tag instructors arts teacher status as stored in the
#' \code{non_arts} column in the artlookR \code{instructors} table.
#'
#' * Because this information is not stored in the artlookR database, you are not required to run the \code{connection.R} script
#' and create a connection object for this script to run.
#' @examples meta_non_arts()
#' @export
meta_non_arts <- function(...){

  output <- list(label = c("Arts Teacher", "Classroom / Non-Arts Teacher"),
                 level = c(FALSE, TRUE))

  output

}