From 59da27d5ef9657237414c5b34a4181beac94c5e5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Sat, 23 May 2020 13:16:23 +0200 Subject: [PATCH] quickEffect --- RBBGCMuso/R/quickeffect.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/quickeffect.R b/RBBGCMuso/R/quickeffect.R index 32060ed..c76a4f7 100644 --- a/RBBGCMuso/R/quickeffect.R +++ b/RBBGCMuso/R/quickeffect.R @@ -15,7 +15,7 @@ #' @importFrom tidyr separate #' @export -musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, endVal, nSteps = 1, fileToChange="epc", outVar, parName = "parVal"){ +musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, endVal, nSteps = 1, fileToChange="epc",modifyOriginal=TRUE, outVar, parName = "parVal"){ if(is.character(outVar)){ varNames <- as.data.frame(musoMappingFind(outVar)) @@ -43,7 +43,7 @@ musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, en parVals <- seq(startVal, endVal, length = (nSteps + 1)) parVals <- dynRound(startVal, endVal, seqLen = (nSteps + 1)) a <- do.call(rbind,lapply(parVals, function(parVal){ - calResult <- tryCatch(calibMuso(settings = settings,calibrationPar = calibrationPar, parameters = parVal, outVars = outVarIndex, silent = TRUE,fileToChange = fileToChange), error = function(e){NA}) + calResult <- tryCatch(calibMuso(settings = settings,calibrationPar = calibrationPar,modifyOriginal=modifyOriginal, parameters = parVal, outVars = outVarIndex, silent = TRUE,fileToChange = fileToChange), error = function(e){NA}) if(all(is.na(calResult))){ b <- cbind(rep(NA,365),parVal) rownames(b) <- tail(musoDate(startYear = settings$startYear, numYears = settings$numYears),365)