R/source_r.R

In moj-analytical-services/las_rap_code_library: Functions used for legal aid statistics publications and R Shiny apps

#' Choose between automatic or manual source script.
#'
#' @description You can choose between automatic or manual source script. The source script collects the name and coverage of the quarters mentioned in the bulletin.
#' 
#' Both the source_automatic.R and source_manual.R scripts save the name and coverage of quarters mentioned in LAS bulletin.
#' source_automatic.R retrieves the name of the latest CSV from the alpha-legal-aid-statistics-team AWS bucket. Based on the name of the file it creates the variables.
#'
#' @param auto Input TRUE if you want to run automatic source script or FALSE if you want to run manual source script.
#
#' @examples
# source_r(auto = TRUE)
# source_r(auto = FALSE)
#' 
#' @return Name and coverage of quarters mentioned in bulletin.
#'
#' @export

source_r <- function(auto) {
  if(auto == TRUE){
    source("~/las_rap/source_automatic.R")
  }
  
  else if(auto == FALSE){
   source("~/las_rap/source_manual.R")
  }
  
  else{
    stop("Please input TRUE or FALSE. This function is case-sensitive.")
  }
}