In skummerf/GenomicWidgets: interactive visualization of genomics data

knitr::opts_chunk$set(echo = TRUE)
library(GenomicWidgets)

out <- htmltools::tagList()
ref_files <- list.files("testthat/reference/","*.rds", full.names = TRUE)
for (i in seq_along(ref_files)){
   out[[(i*2 - 1)]] <- strsplit(basename(ref_files[i]),".rds")[[1]]
   tmp <- readRDS(ref_files[i])
   out[[i*2]] <- tmp
}

out

Sys.time()

skummerf/GenomicWidgets documentation built on May 31, 2019, 6:16 p.m.