R/render.r

In hadley/helpr: Help for R.

#' Render HTML Snippet.
#'
#' @param template name of file to use in the folder "views"
#' @param params list containing objects to be sent to the template
#' @param path path to be used to find the "views" folder
#' @return text rendered from the template
#' @author Barret Schloerke
#' @keywords internal
#' @import sinartra
render_snippet <- function(template, params = NULL, path = router_file_path()) {
  template <- str_c("_", template)
  render_brew(template, params, path, parent = parent.frame())$payload
}


#' Helpr Path: Where's my help at?
#'
#' @return returns the path the to the helpr dir.  This could be local or the system (installed) path
#' @keywords internal
#' @examples
#' #if(identical(helpr_path(), getwd())) {
#' #  "you are a developer"
#' #} else {
#' #  "you have installed helpr"
#' #}
helpr_path <- memoise(function() {
  if (all(c("DESCRIPTION", "inst", "man", "R") %in% dir() )) {
    if ("helpr" %in% dir("../")) {
      return(suppressWarnings(normalizePath(file.path(getwd(), "inst"))))
    }
  }
  system.file(package = "helpr")
})