SeqPlots R workflow

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


Try the seqplots package in your browser

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

seqplots documentation built on Nov. 1, 2018, 2:56 a.m.