R/get_organization.R

In nikola-sur/teachr: Teach reproducible data science by setting a good example

#' Retrieve the Canvas token
#'
#' Internal function. Retrieves the Canvas token.
#'
#' @keywords internal
get_organization <- function() {
  path <- "meta/organization.txt"
  if (!dir.exists("meta")) {
    path <- paste0("../", path)
  }
  return(as.character(utils::read.table(path)))
}