fix(brand_pluck): If not subsettable, return FALSE

gadenbuie · gadenbuie · commit 4af29c02b537 · 2025-04-17T13:05:20.000-04:00
diff --git a/R/bs-theme-preset-brand.R b/R/bs-theme-preset-brand.R
@@ -785,7 +785,8 @@ brand_has <- function(brand, ...) {
   x <- brand
 
   for (f in c(...)) {
-    if (is.null(x[[f]])) return(FALSE)
+    val <- tryCatch(x[[f]], error = function(e) NULL)
+    if (is.null(val)) return(FALSE)
     x <- x[[f]]
   }
 

Original file line number	Diff line number	Diff line change
`@@ -785,7 +785,8 @@ brand_has <- function(brand, ...) {`
`785`	`785`	`x <- brand`
`786`	`786`
`787`	`787`	`for (f in c(...)) {`
`788`		`- if (is.null(x[[f]])) return(FALSE)`
	`788`	`+ val <- tryCatch(x[[f]], error = function(e) NULL)`
	`789`	`+ if (is.null(val)) return(FALSE)`
`789`	`790`	`x <- x[[f]]`
`790`	`791`	`}`
`791`	`792`