Skip to content

Commit 6d64a75

Browse files
author
Leire Abarrategui Martinez
committed
connections
1 parent 7860c84 commit 6d64a75

1 file changed

Lines changed: 8 additions & 8 deletions

File tree

‎tests/testthat/test-expt-ds.dataFrameSort.R‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -122,7 +122,7 @@ test_that('all datasets',
122122
for(i in 1:length(local.df.list)){
123123
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
124124
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
125-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
125+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
126126
}
127127

128128
.test.data.frame.sorting("D","LOGICAL",FALSE,"numeric","server.data",local.df.list)
@@ -150,7 +150,7 @@ test_that('dataset 1',
150150
for(i in 1:length(local.df.list)){
151151
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
152152
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
153-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
153+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
154154
}
155155
colnames(local.df.list)
156156
library(dsBaseClient)
@@ -180,7 +180,7 @@ test_that('all datasets',
180180
for(i in 1:length(local.df.list)){
181181
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
182182
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
183-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
183+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
184184
}
185185
.test.data.frame.sorting("D","LOGICAL",TRUE,"numeric","server.data",local.df.list)
186186
#.test.data.frame.sorting("D","INTEGER",TRUE,"numeric","server.data",local.df.list)
@@ -207,7 +207,7 @@ test_that('dataset 1',
207207
for(i in 1:length(local.df.list)){
208208
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
209209
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
210-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
210+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
211211
}
212212
.test.data.frame.sorting("D","LOGICAL",TRUE,"numeric","server.data",local.df.list)
213213
#.test.data.frame.sorting("D","INTEGER",TRUE,"numeric","server.data",local.df.list)
@@ -238,7 +238,7 @@ test_that('all datasets',
238238
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
239239
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
240240
levels(local.df.list[[i]][,"FACTOR_CHARACTER"])<-server.FC_levels[[i]]
241-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
241+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
242242
}
243243
.test.data.frame.sorting("D","LOGICAL",FALSE,"alphabetic","server.data",local.df.list)
244244
#.test.data.frame.sorting("D","INTEGER",FALSE,"alphabetic","server.data",local.df.list)
@@ -265,7 +265,7 @@ test_that('dataset 2',
265265
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
266266
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
267267
levels(local.df.list[[i]][,"FACTOR_CHARACTER"])<-server.FC_levels[[i]]
268-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
268+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
269269
}
270270
.test.data.frame.sorting("D","LOGICAL",FALSE,"alphabetic","server.data",local.df.list)
271271
#.test.data.frame.sorting("D","INTEGER",FALSE,"alphabetic","server.data",local.df.list)
@@ -290,7 +290,7 @@ test_that('all datasets',
290290
for(i in 1:length(local.df.list)){
291291
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
292292
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
293-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
293+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
294294
}
295295
.test.data.frame.sorting("D","LOGICAL",TRUE,"alphabetic","server.data",local.df.list)
296296
#.test.data.frame.sorting("D","INTEGER",TRUE,"alphabetic","server.data",local.df.list)
@@ -315,7 +315,7 @@ test_that('dataset 3',
315315
for(i in 1:length(local.df.list)){
316316
local.df.list[[i]][,"CHARACTER"]<-as.character(local.df.list[[i]][,"CHARACTER"])
317317
local.df.list[[i]][,"FACTOR_INTEGER"]<-as.factor(local.df.list[[i]][,"FACTOR_INTEGER"])
318-
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = connections[i][[1]])
318+
colnames(local.df.list[[i]])<-ds.colnames("D",datasources = ds.test_env$connections[i][[1]])
319319
}
320320
.test.data.frame.sorting("D","LOGICAL",TRUE,"alphabetic","server.data",local.df.list)
321321
#.test.data.frame.sorting("D","INTEGER",TRUE,"alphabetic","server.data",local.df.list)

0 commit comments

Comments
 (0)