R/get_template.R

In ModelOriented/xai2cloud: Deploys An Explainer To The Cloud

#' Get Templates
#'
#' @return A whisker template for the plumber R file
#' @importFrom readr read_file
#' @export
get_template <- function(){
  path_to_template <- system.file("templates", "default_template.txt", package="xai2cloud")
  template <- read_file(path_to_template)
  return(template)
}