Nothing
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')
sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.