remove library(random.cdisc.data) from tests

Author: m7pr

tests/testthat/test-qenv_get_code.R

@@ -678,7 +678,6 @@ testthat::test_that("understands @ usage and do not treat rhs of @ as objects (o
 testthat::test_that("library() and require() are always returned", {
   code <- c(
     "set.seed(1)",
-    "library(random.cdisc.data)",
     "require(dplyr)",
     "library(MultiAssayExperiment)",
     "x <- 5",
@@ -688,7 +687,6 @@ testthat::test_that("library() and require() are always returned", {
   testthat::expect_identical(
     get_code(q, names = "x"),
     paste(
-      "library(random.cdisc.data)",
       "require(dplyr)",
       "library(MultiAssayExperiment)",
       "x <- 5",
@@ -703,7 +701,6 @@ testthat::test_that("library() and require() are always returned", {
 testthat::test_that("data() call is returned when data name is provided as is", {
   code <- c(
     "set.seed(1)",
-    "library(random.cdisc.data)",
     "require(dplyr)",
     "library(MultiAssayExperiment)",
     "data(miniACC, envir = environment())",
@@ -713,7 +710,6 @@ testthat::test_that("data() call is returned when data name is provided as is",
   testthat::expect_identical(
     get_code(q, names = "x"),
     paste(
-      "library(random.cdisc.data)",
       "require(dplyr)",
       "library(MultiAssayExperiment)",
       "data(miniACC, envir = environment())",
@@ -726,7 +722,6 @@ testthat::test_that("data() call is returned when data name is provided as is",
 testthat::test_that("data() call is returned when data name is provided as a character", {
   code <- c(
     "set.seed(1)",
-    "library(random.cdisc.data)",
     "require(dplyr)",
     "library(MultiAssayExperiment)",
     "data('mtcars')",
@@ -736,7 +731,6 @@ testthat::test_that("data() call is returned when data name is provided as a cha
   testthat::expect_identical(
     get_code(q, names = "z"),
     paste(
-      "library(random.cdisc.data)",
       "require(dplyr)",
       "library(MultiAssayExperiment)",
       "data(\"mtcars\")",