R/get_organization.R

Defines functions get_organization

Documented in get_organization

#' 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)))
}
nikola-sur/teachr documentation built on April 21, 2022, 4:50 a.m.