SeqPlots GUI

files <- c(
  'Files.md',
  'PlotSets.md',
  'Plotting.md',
  'Heatmaps.md',
  'Outputs.md',
  'Batch.md',
  'SaveAndLoad.md',
  'AdvOup.md',
  'Genomes.md',
  'Errors.md',
  'Terms.md',
  'References.md'
)

err <- try({
    npos <- which(rev(strsplit(getwd(), '/')[[1]]) == "seqplots")-1
    if(!length(npos)) npos <- 1
    ppath <- paste(rep('../', npos), collapse = '')
})
if(class(err) =='try-error') ppath <- '../'

cat(knitr::knit_child(

    text = gsub(
        "img/",
        paste0(ppath, "inst/seqplots/www/help/img/"),
        unlist(lapply(file.path(paste0(ppath, 'inst/seqplots/www/help'), files), readLines))
    ),
    quiet = TRUE
), sep = '\n')

Session Information

sessionInfo()


Try the seqplots package in your browser

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

seqplots documentation built on Nov. 8, 2020, 4:52 p.m.