reactMarkup: return list with class reactR_markup instead of reactR.markup

alandipert · alandipert · commit 1808e9d8e26b · 2019-01-11T15:31:07.000-08:00
diff --git a/R/reacttools.R b/R/reacttools.R
@@ -88,6 +88,6 @@ React <- structure(
 reactMarkup <- function(tag) {
   stopifnot(inherits(tag, "shiny.tag")
             || (is.character(tag) && length(tag) == 1))
-  list(tag = tag, class = "reactR.markup")
+  list(tag = tag, class = "reactR_markup")
 }
 

Original file line number	Diff line number	Diff line change
`@@ -88,6 +88,6 @@ React <- structure(`
`88`	`88`	`reactMarkup <- function(tag) {`
`89`	`89`	`stopifnot(inherits(tag, "shiny.tag")`
`90`	`90`	`\|\| (is.character(tag) && length(tag) == 1))`
`91`		`- list(tag = tag, class = "reactR.markup")`
	`91`	`+ list(tag = tag, class = "reactR_markup")`
`92`	`92`	`}`
`93`	`93`