inst/doc/QuickStart.R

In seqplots: An interactive tool for visualizing NGS signals and sequence motif densities along genomic features using average plots and heatmaps

## ----echo=FALSE, results='asis', echo=FALSE-----------------------------------
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/"),
        readLines( paste0(ppath, "inst/seqplots/www/help/QuickStart.md") )
    ), quiet = TRUE
), sep = '\n')

## ----echo=FALSE---------------------------------------------------------------
sessionInfo()