knitr::opts_chunk$set(echo = TRUE, cache = FALSE, warning = FALSE, message = FALSE) library(tidyverse); library(knitr);
# transcripts <- read.csv(here::here("inst", "extdata", "heartFailure", "transcripts.tsv"), header = TRUE, sep = "\t") # geneSd <- apply(transcripts, 2, sd) # write.table(transcripts[, order(geneSd, decreasing = TRUE)[1:5000]], file = here::here("inst", "extdata", "caseStudy", "mrna.tsv"), sep = "\t") omicsData <- lapply(c("cells.tsv", "holter.tsv", "mrna.tsv", "proteins.tsv"), function(i){ read.csv(here::here("inst", "extdata", "heartFailure", i), header = TRUE, sep = "\t") }) names(omicsData) <- c("cells", "holter", "mrna", "proteins") ## save heart failure datasets heartFailure <- list( demo = read.csv(here::here("inst", "extdata", "heartFailure", "clinical.tsv"), header = TRUE, sep = "\t"), omicsData = omicsData )
usethis::use_data(heartFailure, overwrite = TRUE)
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.