Reference plots

In iheatmapr: Interactive, Complex Heatmaps

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()

iheatmapr documentation built on Aug. 31, 2023, 1:08 a.m.