knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(RNAseqStat)

Resluts Overview

fl <- list.files("../dev/example_output/")
modules <- fl[grep("4-EnrichKEGG.*.pdf",fl)]
bitmap_l <- lapply(modules, function(x){
  pdftools::pdf_render_page(glue::glue("../dev/example_output/{x}"), page = 1, dpi = 300)
})
basenames <- gsub(pattern = "\\.pdf$", "", modules)
names(bitmap_l) <- basenames
tmp <- lapply(seq_along(bitmap_l), function(x){
  png::writePNG(bitmap_l[[x]], glue::glue("{names(bitmap_l)[[x]]}.png"))
})
knitr::include_graphics("4-EnrichKEGG_up_and_down_KEGG.png")


xiayh17/RNAseqStat documentation built on June 16, 2022, 11:51 a.m.