getRankStatus <- function(tblDir="//lar-file-srv/Data/BTPD_2016/Analysis/Database/"){
# tblDir <- "//lar-file-srv/Data/BTPD_2016/Analysis/Database/"
ranks <- read.csv(paste0(tblDir,"tblSampling.csv"),stringsAsFactors=FALSE)
ranks
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.