diff options
Diffstat (limited to 'R/build_scenarios.R')
| -rw-r--r-- | R/build_scenarios.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index b30bdfbb..95f47ce7 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -24,7 +24,7 @@ if(length(args) >= 1){ if(length(args) >=2){
argslist <- strsplit(args[-1], ",")
dealnames <- unlist(lapply(argslist, function(x)x[1]))
- reinvflags <- unlist(lapply(argslist, function(x)x[2]))
+ reinvflags <- as.logical(unlist(lapply(argslist, function(x)x[2])))
}else{
data <- read.table(file.path(root.dir, "scripts", "deals_to_price.txt"),
colClasses=c("character", "logical"))
|