tests/testthat/helper-workflow.R

In shinyExprPortal: A Configurable 'shiny' Portal for Sharing Analysis of Molecular Expression Data

lookup <- data.frame(
    sample_id = c("S1", "S2", "S3", "S4"),
    subject_id = c("P1", "P2", "P3", "P4"),
    col_a = c("treatment", "treatment", "control", "control"),
    col_b = c("low", "medium", "low", "high"),
    col_c = c("good", "*", "good", "good")
)

measures_data <- data.frame(
    subject_id = c("P1", "P2", "P3", "P4"),
    age = c(30, 35, 40, 45),
    sex = c("Male", "Male", "Male", "Female"),
    var_a = c(1, 2, 3, NA),
    var_b = c("a", "a", "b", "b")
)

m <- 250
preffix <- do.call(paste0, replicate(4, sample(LETTERS, m, TRUE), FALSE))
suffix <- do.call(paste0, replicate(3, sample(1:9, m, TRUE), FALSE))
gene_names <- paste0(preffix, suffix)
exp_matrix <- matrix(
    round(stats::rnorm(m * 4)+stats::rpois(m*4, 3), 2),
    nrow = m,
    ncol = 4,
    dimnames = list(gene_names, c("P1", "P2", "P3", "P4"))
)