fix: escaped dollar signs in perf tests

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("D$LAB_TSC", "D$LAB_TRIG", newobj="c.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

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

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

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

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

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

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.dataFrameSort(df.name="D", sort.key.name="D\$LAB_TSC", newobj="sorted.newobj")
+        ds.dataFrameSort(df.name="D", sort.key.name="D$LAB_TSC", newobj="sorted.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

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

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.dataFrameSubset(df.name="D", V1.name="D\$LAB_TSC", V2.name="D\$LAB_TRIG", Boolean.operator=">=", newobj="subset.newobj")
+        ds.dataFrameSubset(df.name="D", V1.name="D$LAB_TSC", V2.name="D$LAB_TRIG", Boolean.operator=">=", newobj="subset.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()

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

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

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

@@ -18,7 +18,7 @@ test_that("performance", {
     .current.time <- .start.time
 
     while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
-        ds.recodeValues(var.name="D\$LAB_TSC", values2replace.vector=0, new.values.vector=NA, newobj="recode.newobj")
+        ds.recodeValues(var.name="D$LAB_TSC", values2replace.vector=0, new.values.vector=NA, newobj="recode.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=0, newobj="replace.newobj")
 
         .count <- .count + 1
         .current.time <- Sys.time()