Fix minor bug in scaffold template

Author: alandipert

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(reactR::component("div", message))
+  component <- reactR::reactData(htmltools::tag("div", list(message)))
 
   # create widget
   htmlwidgets::createWidget(