Merge feature/issue-14: Fix addResourcePath error by moving CSS to inst/www

pcantalupo · pcantalupo · commit 1b4ae76140eb · 2026-03-18T10:35:16.000-04:00
Closes #14 * feature/issue-14: Fix addResourcePath error by moving CSS to inst/www and using system.file()
diff --git a/R/shinyapp_components.R b/R/shinyapp_components.R
@@ -1070,7 +1070,7 @@ viewseurat_server <- function(input, output, session) {
     guts_dep <- htmltools::htmlDependency(
       name = "guts-tabset-styles",
       version = "1.0",
-      src = normalizePath("www"),
+      src = system.file("www", package = "viewseurat"),
       stylesheet = "guts-scoped.css",
       all_files = FALSE
     )
diff --git a/inst/www/guts-scoped.css b/inst/www/guts-scoped.css
diff --git a/tests/testthat/test-guts-css-scoping.R b/tests/testthat/test-guts-css-scoping.R
@@ -7,7 +7,7 @@
 # Fix: CSS lives in www/guts-scoped.css with every selector prefixed by
 # .guts-tabset, and is loaded only when the Guts tab renders.
 
-css_path <- function() test_path("../../www/guts-scoped.css")
+css_path <- function() system.file("www/guts-scoped.css", package = "viewseurat")
 
 # -- www/guts-scoped.css exists and is scoped ----------------------------------
 

Original file line number	Diff line number	Diff line change
`@@ -1070,7 +1070,7 @@ viewseurat_server <- function(input, output, session) {`
`1070`	`1070`	`guts_dep <- htmltools::htmlDependency(`
`1071`	`1071`	`name = "guts-tabset-styles",`
`1072`	`1072`	`version = "1.0",`
`1073`		`- src = normalizePath("www"),`
	`1073`	`+ src = system.file("www", package = "viewseurat"),`
`1074`	`1074`	`stylesheet = "guts-scoped.css",`
`1075`	`1075`	`all_files = FALSE`
`1076`	`1076`	`)`