R/user_input.R

In numbats/sugar: Shiny Unit Grade and Attendance Reviewer

#' Unit Specific Inputs
#'
#' Function to set up inputs that are specific to units. The function opens the userinput.R file inorder to take in inputs.
#'
#'@param setup_info unit information of class monash_unit
#'
#' @export

user_input <- function(setup_info){

  template <- readLines("app/userinput.R")
  writeLines(whisker::whisker.render(template, setup_info), "app/userinput.R")
  template <- readLines("app/googlesheets.R")
  writeLines(whisker::whisker.render(template, setup_info), "app/googlesheets.R")

}