Updates/fixes

R/card.R

@@ -65,7 +65,8 @@ card <- function(..., full_screen = FALSE, height = NULL, class = NULL, wrapper
     if (full_screen) full_screen_toggle()
   )
 
-  tag <- asFillContainer(tag, class = class, height = height, asItem = TRUE)
+  tag <- asFillContainer(tag, height = height, asItem = TRUE)
+  tag <- tagAppendAttributes(tag, class = class)
 
   as_fragment(
     tag_require(tag, version = 5, caller = "card()")
@@ -173,11 +174,11 @@ card_body_ <- function(..., fill = TRUE, height = NULL, class = NULL, container
   )
 
   if (fill) {
-    tag <- asFillContainer(tag, class = class, asItem = TRUE)
-  } else {
-    tag <- tagAppendAttributes(tag, class = class)
+    tag <- asFillContainer(tag, asItem = TRUE)
   }
 
+  tag <- tagAppendAttributes(tag, class = class)
+
   as.card_item(tag)
 }
 
@@ -233,7 +234,8 @@ card_image <- function(
     ...
   )
 
-  image <- asFillItem(image, class = class, height = height, width = width)
+  image <- asFillItem(image, height = height, width = width)
+  image <- tagAppendAttributes(image, class = class)
 
   if (!is.null(href)) {
     image <- asFillContainer(tags$a(href = href, image), asItem = TRUE)

R/files.R

@@ -46,6 +46,7 @@ bootswatch_sass_file <- function(theme, file, version = version_default()) {
 # Given a vector of sass_file()s, create a list of sass_bundles(),
 # so each rule may be removed layer (by it's files basename)
 rule_bundles <- function(files) {
+  files <- lapply(files, as_sass_file)
   paths <- vapply(files, get_sass_file_path, character(1))
   nms <- tools::file_path_sans_ext(basename(paths))
   Map(
@@ -57,14 +58,12 @@ rule_bundles <- function(files) {
 }
 
 get_sass_file_path <- function(x) {
-  if (!inherits(x, "sass_file")) {
-    x <- sass_file(x)
-  }
-
   path <- attr(x, "sass_file_path")
-  if (length(path) == 0) {
-    stop("Couldn't find file path")
-  }
+  if (length(path)) return(path)
+
+  stop("Couldn't find file path")
+}
 
-  path
+as_sass_file <- function(x) {
+  if (inherits(x, "sass_file")) x else sass_file(x)
 }

R/layout.R

@@ -96,7 +96,8 @@ layout_column_wrap <- function(
     children
   )
 
-  tag <- asFillItem(tag, class = class)
+  tag <- asFillItem(tag)
+  tag <- tagAppendAttributes(tag, class = class)
   tag <- as.card_item(tag)
 
   as_fragment(