inst/extdata/cellnoptr_data.R

In robertness/artemis: What the package does (short line)

library(CNORode)
library(magrittr)
library(dplyr)
library(stringr)
data_file <- system.file("extdata/datasets", "MD-ToyMMB.csv",
                         package = "artemis")
model_file <- system.file("extdata/models", "PKN-ToyMMB.sif", 
                          package = "artemis")
cnolist <- CNOlist(data_file)
model <- readSIF(model_file)
plotModel(model, cnolist)
# Pruning
toy_data <- CNOlistToy$valueSignals %>%
  {
    for(i in 1:length(.)){
    names(.)[i] <- paste("t", CNOlistToy$timeSignals[i], sep = "")
    }
    return(.)
  } %>%
  lapply(function(mat){
    as.data.frame(cbind(mat,
                        CNOlistToy$valueStimuli,
                        CNOlistToy$valueInhibitors
    )) %>%
      {
        names(.) <- c(CNOlistToy$namesSignals,
               paste0("stim_", CNOlistToy$namesStimuli),
               paste0("inh_", CNOlistToy$namesInhibitors))
       return(.)
      }
    }) %>%
  {
    for(i in 1:length(.)){
      .[[i]] <- cbind(.[[i]], timepoint = names(.)[i])
    }
    return(.)
    } %>%
  {do.call("rbind", .)}
devtools::use_data(toy_data, overwrite=TRUE)