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

Session Information

sessionInfo()


Przemol/seqplots documentation built on May 14, 2022, 6:47 a.m.