{
code <- "
a <- 2
#' Set the 'a' value to use in the add_a function
#'
#' @param v a numeric value
#'
#' @return Does not return anything
#'
#' @export
set_a <- function(v) a <<- v
#' Add a 'a' value defined separately
#'
#' @param x a numeric value
#'
#' @return x + a
#'
#' @export
add_a <- function(x) x + a
#' Add a 'a' value defined separately to a b value made available
#' in environment
#'
#'
#' @return b + a
#'
#' @export
add_a_to_b <- function() b + a
"
helpers <- parse_R_helpers(code, b=3)
helpers$help()
helpers$help("add_a")
helpers$add_a(3.5)
helpers$set_a(4)
helpers$add_a(3.5)
helpers$add_a_to_b()
helpers <- parse_R_helpers(code, b=6)
helpers$add_a_to_b()
}
Run the code above in your browser using DataLab