inst/shiny-apps/rectangles/tools.R

In bcdudek/bcdstats: A collection of functions to support B. Dudek's APSY510/511 classes

###  Load functions required in this app
#---------------------------------------------------------------------------------------------------------------
# first, a helper function that permits the use of markdown in the "about" tab
# based on code for parts of this application were adapted from an 
#application </a>by Vincent Nijs, UCSD. https://github.com/mostly-harmless/radyant/tree/master/inst/marketing
# reworked by Jason Bryer
#renderRmd <- function(path, input){
#  return(renderText( {
#    if (!require(knitr))
#      stop("knitr package is not installed")
#    if (!require(markdown))
#      stop("Markdown package is not installed")
#    # shiny:::dependsOnFile(path)
#    contents <- paste(readLines(path, warn = FALSE), collapse = '\n')
#    myenvir <- new.env() # Perhaps use parent.frame() ?!
#    assign('input', input, envir=myenvir)
#    html <- knitr::knit2html(text = contents, fragment.only = TRUE, envir=myenvir)
#    Encoding(html) <- 'UTF-8'
#    return(HTML(html))
#  }))
#}
#---------------------------------------------------------------------------------------------------------------