Rename reactData => reactMarkup

Author: alandipert

R/reacttools.R

@@ -98,15 +98,18 @@ React <- structure(
 #' @export
 `[[<-.react_component_builder` <- `$<-.react_component_builder`
 
-#' Create a data object for sending a React component to the client.
+#' Prepare data that represents a character vector, a React component, or an
+#' htmltools tag for sending to the client.
 #'
-#' @param tag React component or \code{\link[htmltools]{tag}}
+#' @param tag character vector or React component or
+#'   \code{\link[htmltools]{tag}}
 #'
 #' @return
 #' @export
 #'
 #' @examples
-reactData <- function(tag) {
+reactMarkup <- function(tag) {
+  # TODO ensure tag is either an htmltools tag or a string (throw otherwise)
   list(tag = tag)
 }
 

inst/templates/widget_r.txt

@@ -8,7 +8,7 @@
 %s <- function(message, width = NULL, height = NULL, elementId = NULL) {
 
   # describe a React component to send to the browser for rendering.
-  component <- reactR::reactData(htmltools::tag("div", list(message)))
+  component <- reactR::reactMarkup(htmltools::tag("div", list(message)))
 
   # create widget
   htmlwidgets::createWidget(