## ----setup, include = FALSE--------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", crop = NULL ## Related to https://stat.ethz.ch/pipermail/bioc-devel/2020-April/016656.html ) ## ----load_scp, message = FALSE------------------------------------------------ library("scpdata") ## ----EH, message = FALSE------------------------------------------------------ eh <- ExperimentHub() ## ----EH_query, message = FALSE------------------------------------------------ query(eh, "scpdata") ## ----scpdata_fun-------------------------------------------------------------- info <- scpdata() knitr::kable(info[, c("title", "description")]) ## ----download_EH-------------------------------------------------------------- scp <- eh[["EH3901"]] scp ## ----download_scpdata--------------------------------------------------------- scp <- dou2019_lysates() scp ## ----setup2, include = FALSE-------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "", crop = NULL ) ## ----sessioninfo, echo=FALSE-------------------------------------------------- sessionInfo()