From d95f845b13a66e8d05a5586a6c6ee45811bc7242 Mon Sep 17 00:00:00 2001 From: Philip Delff Date: Sun, 25 Aug 2024 22:42:24 -0400 Subject: [PATCH] avoid /inst in tests --- tests/testthat/test_NMorderColumns.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_NMorderColumns.R b/tests/testthat/test_NMorderColumns.R index 75881f3c..0a15265b 100644 --- a/tests/testthat/test_NMorderColumns.R +++ b/tests/testthat/test_NMorderColumns.R @@ -4,7 +4,8 @@ test_that("last NULL",{ fileRef <- "testReference/NMorderColumns_01.rds" - pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata")) + ## pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata")) + pk <- readRDS(file="testData/data/xgxr2.rds") pk1 <- NMorderColumns(pk) pk2 <- NMorderColumns(pk,last=c("FLAG",NULL)) @@ -25,7 +26,8 @@ test_that("Non-numeric DATE and TIME",{ fileRef <- "testReference/NMorderColumns_02.rds" - pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata")) +## pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata")) + pk <- readRDS(file="testData/data/xgxr2.rds") pk[,time.tz:=as.POSIXct("2000/01/01")+TIME*3600] pk[,DATE:=as.character(as.Date(time.tz),format="%y/%m/%d")]