R/get_canvas_token.R

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

Defines functions get_canvas_token

Documented in get_canvas_token

#' Retrieve the Canvas token
#'
#' Internal function. Retrieves the Canvas token.
#'
#' @keywords internal
get_canvas_token <- function() {
  path <- as.character(utils::read.table("meta/token_path.txt"))
  return(as.character(utils::read.table(path)))
}