retail list in reactR::component class list to #82 to insure htmlwidgets will recurse through extracting htmlwidgets::JS calls

timelyportfolio · timelyportfolio · commit bd72b36bb629 · 2023-11-24T10:17:48.000-06:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: reactR
 Type: Package
 Title: React Helpers
-Version: 0.5.0
-Date: 2023-10-01
+Version: 0.5.1
+Date: 2023-11-24
 Authors@R: c(
       person(
         "Facebook", "Inc"
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,11 @@
+# reactR 0.5.1
+
+* retain `list` in `reactR::component` classes #82
+
+# reactR 0.5.0
+
+* Update react to `18.2.0`
+
 # reactR 0.4.4
 
 * Update react to `16.12.0`
diff --git a/R/reacttools.R b/R/reacttools.R
@@ -32,7 +32,7 @@ component <- function(name, varArgs = list()) {
     stop("Component name must be specified and start with an upper case character")
   }
   component <- htmltools::tag(name, varArgs)
-  structure(component, class = c("reactR_component", oldClass(component)))
+  structure(component, class = c("reactR_component", oldClass(component), "list"))
 }
 
 #' React component builder.

Original file line number	Diff line number	Diff line change
`@@ -32,7 +32,7 @@ component <- function(name, varArgs = list()) {`
`32`	`32`	`stop("Component name must be specified and start with an upper case character")`
`33`	`33`	`}`
`34`	`34`	`component <- htmltools::tag(name, varArgs)`
`35`		`- structure(component, class = c("reactR_component", oldClass(component)))`
	`35`	`+ structure(component, class = c("reactR_component", oldClass(component), "list"))`
`36`	`36`	`}`
`37`	`37`
`38`	`38`	`#' React component builder.`