| stopifnot(requireNamespace("miniUI"), requireNamespace("shiny")) | stopifnot(requireNamespace("miniUI"), requireNamespace("shiny")) | ||||
| ui <- miniPage( | ui <- miniPage( | ||||
| shiny::includeCSS(system.file("style.css", package = "regexplain")), | |||||
| shiny::includeCSS(system.file("gadget.css", package = "regexplain")), | |||||
| shiny::includeCSS(system.file("styles", "style.css", package = "regexplain")), | |||||
| shiny::includeCSS(system.file("styles", "gadget.css", package = "regexplain")), | |||||
| gadgetTitleBar( | gadgetTitleBar( | ||||
| "regexplain", | "regexplain", | ||||
| right = miniTitleBarButton("done", "Send Regex To Console", TRUE) | right = miniTitleBarButton("done", "Send Regex To Console", TRUE) |
| stopifnot(requireNamespace("miniUI"), requireNamespace("shiny")) | stopifnot(requireNamespace("miniUI"), requireNamespace("shiny")) | ||||
| ui <- miniPage( | ui <- miniPage( | ||||
| shiny::includeCSS(system.file("gadget.css", package = "regexplain")), | |||||
| shiny::includeCSS(system.file("styles", "gadget.css", package = "regexplain")), | |||||
| gadgetTitleBar( | gadgetTitleBar( | ||||
| "Regex Cheatsheet Quick Reference", | "Regex Cheatsheet Quick Reference", | ||||
| right = miniTitleBarButton("done", "OK", TRUE) | right = miniTitleBarButton("done", "OK", TRUE) |
| tmp_html <- suppressWarnings( | tmp_html <- suppressWarnings( | ||||
| rmarkdown::render( | rmarkdown::render( | ||||
| tmp, | tmp, | ||||
| output_format = rmarkdown::html_document(css = c(system.file('style.css', package='regexplain'), | |||||
| system.file('skeleton.css', package='regexplain')), | |||||
| output_format = rmarkdown::html_document(css = c(system.file("styles", 'style.css', package='regexplain'), | |||||
| system.file("styles", 'skeleton.css', package='regexplain')), | |||||
| theme = NULL), | theme = NULL), | ||||
| quiet = TRUE | quiet = TRUE | ||||
| )) | )) |