| christophe dervieux | 92fa469 | 2021-09-21 16:15:17 +0200 | [diff] [blame] | 1 | # function to lookup reveal resource |
| 2 | reveal_resources <- function(...) { | ||||
| 3 | system.file("rmarkdown/templates/revealjs_presentation/resources", | ||||
| 4 | ..., | ||||
| 5 | package = "revealjs") | ||||
| christophe dervieux | 24418a8 | 2021-09-21 16:17:18 +0200 | [diff] [blame^] | 6 | } |
| 7 | |||||
| 8 | # Convert boolean from R to JS boolean | ||||
| 9 | jsbool <- function(value) ifelse(value, "true", "false") | ||||