Hi Sam, I use the littler package for scripting. You may find it meets your needs.
https://github.com/eddelbuettel/littler HTH, Eric On Wed, Jun 13, 2018 at 5:33 AM, Sam Tuck <st...@nzsuperfund.co.nz> wrote: > Hi All, > I am new to R and am wondering if there is a way to pass > arguments between rscripts. I have this working but have had to create a > C# shell calling the scripts in sequence via windows scripting which > enables command line arguments to get the necessary interaction. > > I'm wondering if I'm using an outdated program construction technique - I > create r files like I would programme functions or reoccurring code > snippets in C. It may be that r was not designed to create lots of little > r script modules that interact via a master script? > > Ideally I'd like to call r scripts from other r scripts and have all the > variables still in memory: For example > > I've been using RStudio Version 1.1.447 to programme and regression test > my individual scripts,. > > Script Arg Script.R > { > # We are going to pass arguments into this script > arguments <- commandArgs(trailingOnly = TRUE) > #arguments[1] is double > #arguments[2] is double > #arguments[3] is double. > if(length(arguments) <3) > { > stop("Not enough arguments, please supply 3, [% dbl}total deviation, [% > dbl] individual deviation, [int] periods before recenter") > } > TotalDeviation <- as.numeric(arguments[1])/100 > IndividualDeviation <- as.numeric(arguments[2])/100 > RecenterPeriods <- as.numeric(arguments[3]) > # We then manipulate some objects based on these inputs, but for this test > we will output them to a file. > fileConn<-file("output.txt") > writeLines(c(TotalDeviation, IndividualDeviation, RecenterPeriods), > fileConn) > close(fileConn) > } > Script RunningScript.R > { > Arg Script.R 0.6 0.4 132 > } > > To which I get > Error: unexpected symbol in " Arg Script.R" > > When I use the script RunningScript.R > { > system(paste("Arg Script.R", 0.8, 0.4, 132)) > } > Nothing occurs (there is no output file created, but also no error) > > When I use RunningScript.R > { > commandArgs <- c(0.6,0.4,132) > source("Arg Script.R') > } > I don't get any args passed into the file. Instead getting the error > Not enough arguments, please supply 3, [% dbl}total deviation, [% dbl] > individual deviation, [int] periods before recenter > > Thanks > > Sam Tuck > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/ > posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.