R/armd_slides.r

In skranz/armd: Academic RMarkdown

find.bdf.auto.slide.type = function(bdf) {
  restore.point("find.bdf.auto.slide.type")

  if ("frame" %in% bdf$type) return("frame")
  if ("exercise" %in% bdf$type) return("exercise")
  if ("section" %in% bdf$type) return("section")
  return("armd")
}


armd.navigate.btns = function() {
  btns = tagList(
    smallButton("rtPrevBtn","<",size = "extra-small"),
    smallButton("rtNextBtn",">",size = "extra-small"),
    smallButton("rtForwardBtn",">>",size = "extra-small"),
    bsButton("rtSlideMenuBtn","", size="extra-small", icon=icon(name="bars", lib="font-awesome"))
  )
  btns
}