library(macro)
# Get path to demo macro program
src <- system.file("extdata/Demo3.R", package = "macro")
# Display source code
# - This is the macro input code
cd <- readLines(src)
cat(paste(cd, "\n"))
# #% Determine appropriate data path
# #%if ("&env." == "prod")
# #%let pth <- /projects/prod/data
# #%else
# #%let pth <- /projects/dev/data
# #%end
# Set env macro variable using symput()
symput("env", "prod")
# Macro Execute Source Code
# - set clear to FALSE to so "env" value is not removed
msource(src, echo = FALSE, clear = FALSE)
# View "pth" macro variable
res <- symget("pth")
# View results
# - Path is set to the "prod" value
res
# [1] "/projects/prod/data"
Run the code above in your browser using DataLab