R/config.R

In bbTomas/slidify: Generate reproducible html5 slides from R markdown

#' Default configuration
#'
#  Figure out a better mechanism for specifying defaults
slidifyDefaults <- function(){list(
  url = list(assets = "assets"),
  framework   = 'io2012',
  theme       = "", 
  highlighter = 'highlight.js',  
  hitheme     = 'tomorrow',
  copy_libraries = TRUE,
  mode = 'standalone',
  widgets = list(),
  onefile = FALSE
)}

#' Get configuration
#' 
#' A config.yml file in the root directory of the slide deck can be used to 
#' override the default configuration. YAML front matter in the Rmd file overrides
#' everything.
#' 
#' @param cfile path to config file
#' @return list of config options
#' @keywords internal
#' @noRd
get_config <- function(cfile = 'config.yml'){
  config = slidifyDefaults()
  if (file.exists(cfile)){
    config = modifyList(config, yaml::yaml.load_file(cfile))
  }
  return(config)
}

#' Add default configuration of framework to fill up missing elements
#' 
#' @keywords internal
#' @noRd
add_config_fr <- function(deck){
  config_file <- file.path(deck$url$framework, "config.yml")
  if (file.exists(config_file)){
    config <- yaml.load_file(config_file)
    deck <- modifyList(config, deck)
  }
  cfile = deck$url$config
  if (!is.null(cfile) && file.exists(cfile)){
    config <- yaml.load_file(cfile)
    deck <- modifyList(config, deck)
  }
  return(deck)
}