tests/testthat/setup.R

In patRyserWelch8/dsServerParameter: share parameters between servers in a non-disclosive manner

#-------------------------------------------------------------------------------
# Copyright (c) 2019 University of Newcastle upon Tyne. All rights reserved.
#
# This program and the accompanying materials
# are made available under the terms of the GNU Public License v3.0.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#-------------------------------------------------------------------------------
#
# Datashield test suite set up
#
#library(R6)
#library(ds.server.wrapping.R.functions)

print("setup.r")
ds.test_env <- new.env()
ds.test_env$sub_env <- new.env()
ds.test_env$local.values.1 <- read.csv("data_files/DATASET1.csv", header = TRUE)
ds.test_env$local.values.2 <- read.csv("data_files/DATASET2.csv", header = TRUE)
ds.test_env$local.values.3 <- read.csv("data_files/DATASET3.csv", header = TRUE)
ds.test_env$local.values   <- rbind(ds.test_env$local.values.1,ds.test_env$local.values.2,ds.test_env$local.values.3)
ds.test_env$null_values <- NULL
ds.test_env$sunny_day <- TRUE
ds.test_env$pie_to_eat <- 3.14
ds.test_env$pie_to_eat_integer <- as.integer(3)
ds.test_env$name <- "coronavirus"
ds.test_env$factor <- factor(c("Male", "Female", "Female", "Male", "Male","InterSex","Eunuch","Female"))
ds.test_env$list_gender_age <- list(1:100, 1:300)
ds.test_env$matrix_age <-matrix(c(4, 5, 34, 6, 7,0,9,4), nrow=2, ncol=4)