knitr::opts_chunk$set(echo = TRUE)

Libraries:

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)

}

Variables



Data Input



Statistics

Plots



frenkiboy/MyLib documentation built on Oct. 24, 2020, 11:01 a.m.