Reference plots

knitr::opts_chunk$set(echo = TRUE)
library(iheatmapr)
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()


Try the iheatmapr package in your browser

Any scripts or data that you put into this service are public.

iheatmapr documentation built on Jan. 13, 2021, 5:11 p.m.