fix: correct perf test function calls for batch 4

Author: timcadman

tests/testthat/test-perf-ds.c.R

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.c("D$LAB_TSC", "D$LAB_TRIG", newobj="c.newobj")
+        ds.c(x=c("D$LAB_TSC", "D$LAB_TRIG"), newobj="c.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

tests/testthat/test-perf-ds.rbind.R

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.rbind(x="D", y="D", newobj="rbind.newobj")
+        ds.rbind(x=c("D", "D"), newobj="rbind.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

tests/testthat/test-perf-ds.rep.R

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.rep(x1=5, times1=10, newobj="rep.newobj")
+        ds.rep(x1=5, times=10, newobj="rep.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

tests/testthat/test-perf-ds.replaceNA.R

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.replaceNA(x="D$LAB_TSC", forNA=0, newobj="replace.newobj")
+        ds.replaceNA(x="D$LAB_TSC", forNA=c(999, 999, 999), newobj="replace.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

tests/testthat/test-perf-ds.unList.R

@@ -12,6 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.unList::perf::0")
 test_that("performance", {
+    ds.asList("D$LAB_TSC", newobj="list.newobj")
     .durationSec  <- 30 # seconds
     .count        <- 0
     .start.time   <- Sys.time()