From aa6363ca83c9c604c1dc8ee7444f8a75cb0c06bd Mon Sep 17 00:00:00 2001 From: Michael Pereira Date: Thu, 8 Jun 2023 14:15:03 -0500 Subject: [PATCH] Adds simple function to run_model and source model.R file --- R/run.R | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/R/run.R b/R/run.R index ad6c443..5ec067c 100644 --- a/R/run.R +++ b/R/run.R @@ -122,6 +122,17 @@ run_visualize <- function() { source(dir_src('visualize.R')) } +#' Runs the modelling step for a startr project. +#' +#' Sources \code{model.R}. +#' +#' @return No return value, called for side effects +#' +#' @export +run_model <- function() { + source(dir_src('model.R')) +} + #' Runs the notebook rendering step for a startr project. #' #' Renders an RMarkdown notebook using \code{upstartr::\link[upstartr:render_notebook]{render_notebook}}