test(benchmark): remove useless variable and format style

Refs #136

tests/scheduled_tests/benchmarkRunModel.R

 library(airGR)
 source("tests/testthat/helper_scheduled_Calibration.R")
 
+
 BenchmarkRunModel <- function(model) {
 
   e <- PrepareCalibration(model)
-  for(n in ls(e, all.names=TRUE)) assign(n, get(n, e))
+  for (n in ls(e, all.names = TRUE)) {
+    assign(n, value = get(n, e))
+  }
 
   # RunOptions calibration configuration
   RunOptions$Outputs_Sim <- RunOptions$Outputs_Cal
-  mbm <- microbenchmark::microbenchmark(RunModel =
-    RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
-             Param = as.numeric(strsplit(model$ParamFinalR, ";")[[1]]), FUN_MOD = sModel)
+  mbm <- microbenchmark::microbenchmark(
+    RunModel = RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
+                        Param = as.numeric(strsplit(model$ParamFinalR, ";")[[1]]), FUN_MOD = sModel)
   )
-  mbm$time
+  return(mbm$time)
+
 }
 
-Args <- commandArgs(trailingOnly = TRUE)
+
 sModelNames <- paste0(dfModels$name,
-                     ifelse(as.logical(dfModels$IsHyst), "_Hyst", ""))
+                      ifelse(as.logical(dfModels$IsHyst), "_Hyst", ""))
 
-dfBM <- as.data.frame(apply(dfModels, 1, BenchmarkRunModel))
+dfBM <- as.data.frame(apply(dfModels, MARGIN = 1, FUN = BenchmarkRunModel))
 colnames(dfBM) <- sModelNames
 dfBM <- cbind(version = as.character(packageVersion('airGR')), dfBM)
 
@@ -31,15 +35,15 @@ write.table(dfBM, file = file,
             sep = "\t", append = file.exists(file))
 
 df <- read.table(file = file, sep = "\t", header = TRUE)
-if(length(unique(df$version)) > 1) {
 
+if (length(unique(df$version)) > 1) {
   lV <- lapply(unique(df$version), function(version) {
-    apply(df[df$version == version, -1] / 1E6, 2, mean)
+    apply(df[df$version == version, -1] / 1e6, MARGIN = 2, FUN = mean)
   })
   names(lV) <- unique(df$version)
   dfMean <- cbind(model = sModelNames, as.data.frame(t(do.call(rbind, lV))))
-  dfMean$evolution <- (dfMean[,3] - dfMean[,2]) / dfMean[,2]
-  write.table(dfMean, "tests/tmp/mean_execution_time.tsv", row.names = FALSE, quote = F, sep = "\t")
+  dfMean$evolution <- (dfMean[, 3] - dfMean[, 2]) / dfMean[, 2]
+  write.table(dfMean, "tests/tmp/mean_execution_time.tsv", row.names = FALSE, quote = FALSE, sep = "\t")
   res <- testthat::test_file("tests/testthat/benchmarkRunModel.R")
   dRes <- as.data.frame(res)
   if (any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {