In stephlocke/Rtraining: Training Materials on R

Here are the areas of Rtraining that you can peruse

fileTbl<-function(f,name, yml=TRUE){
  f<-f[order(basename(f))]
  names<-gsub(".Rmd","",basename(f))
  gettitle<-function(x){
    res<-readLines(x)
    gsub("(title: )|[[:punct:]]","",res[2])
  }
  ymls<-lapply(f,gettitle)
  if(yml) titles<-ymls
  if(!yml) titles<-names
  df<-data.frame(paste0(" [",titles,"](",names,".html)  "))
  names(df)<-name
knitr::kable(df)
}
fileTbl(gsub("inst/","",slidedecks),"Presentations")

fileTbl(gsub("inst/","",shinydecks),"Shiny presentations (not interactive)")

fileTbl(gsub("inst/","",workshops),"Workshops",yml=FALSE)

fileTbl(gsub("inst/","",handouts),"Handouts",yml=FALSE)

stephlocke/Rtraining documentation built on May 30, 2019, 3:36 p.m.