knitr::opts_chunk$set(echo = TRUE)
require(circlize) require(ComplexHeatmap) require(data.table) require(dplyr) require(grid) require(ggplot2) require(ggrepel) require(openxlsx) require(reshape2) require(stringr)
# ---------------------------------------------------------------------- # read_xlsx_remote = function(path, sheets=NA){ require(readxl) destfile = basename(path) download.file(path, destfile = destfile, mode="wb") if(is.na(sheets)) sheets <- readxl::excel_sheets(destfile) x = lapply(sheets, function(X) readxl::read_excel(destfile, sheet = X)) names(x) = sheets x } # ---------------------------------------------------------------------- # read_rds_remote = function(inpath){ destfile = basename(inpath) download.file(inpath, destfile = destfile, mode="wb") r = readRDS(destfile) return(r) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.