Move css files to inst/styles

R/regex_gadget.R

@@ -11,8 +11,8 @@ regex_gadget <- function(text = NULL,
   stopifnot(requireNamespace("miniUI"), requireNamespace("shiny"))
 
   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(
       "regexplain",
       right = miniTitleBarButton("done", "Send Regex To Console", TRUE)

R/regex_help.R

@@ -7,7 +7,7 @@ regexplain_cheatsheet <- function() {
   stopifnot(requireNamespace("miniUI"), requireNamespace("shiny"))
 
   ui <- miniPage(
-    shiny::includeCSS(system.file("gadget.css", package = "regexplain")),
+    shiny::includeCSS(system.file("styles", "gadget.css", package = "regexplain")),
     gadgetTitleBar(
       "Regex Cheatsheet Quick Reference",
       right = miniTitleBarButton("done", "OK", TRUE)

R/run_regex.R

@@ -162,8 +162,8 @@ view_regex <- function(
   tmp_html <- suppressWarnings(
     rmarkdown::render(
       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),
       quiet = TRUE
   ))