R/urls.R

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

add_urls <- function(deck){
  deck$url[['lib']] = deck$url[['lib']] %||% system.file('libraries', package = 'slidifyLibraries')
  urls = with(deck, modifyList(url, list(
    widgets    = file.path(url$lib, 'widgets'),
    framework = file.path(url$lib, 'frameworks', framework),
    theme = file.path(url$lib, 'frameworks', framework, theme),
    highlighters = file.path(url$lib, 'highlighters')
  )))
  urls$layouts = with(urls, c(
    file.path(framework, 'layouts'),
    file.path(assets, 'layouts'),
    file.path(widgets, deck$widgets, 'layouts')
  ))
  urls$highlighter = file.path(urls$highlighters, deck$highlighter)
  deck$url = urls
  return(deck)
}