fix template to pass style and only do 1 %

timelyportfolio · timelyportfolio · commit a99c75f61124 · 2019-02-17T22:09:30.000-06:00
diff --git a/inst/templates/widget_r.txt b/inst/templates/widget_r.txt
@@ -38,7 +38,7 @@ ${name} <- function(message, width = NULL, height = NULL, elementId = NULL) {
 #' @name ${name}-shiny
 #'
 #' @export
-${name}Output <- function(outputId, width = '100%%', height = '400px'){
+${name}Output <- function(outputId, width = '100%', height = '400px'){
   htmlwidgets::shinyWidgetOutput(outputId, '${name}', width, height, package = '${package}')
 }
 
@@ -57,6 +57,6 @@ ${name}_html <- function(id, style, class, ...) {
     reactR::html_dependency_corejs(),
     reactR::html_dependency_react(),
     reactR::html_dependency_reacttools(),
-    htmltools::tags$div(id = id, class = class)
+    htmltools::tags$div(id = id, class = class, style = style)
   )
 }

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ ${name} <- function(message, width = NULL, height = NULL, elementId = NULL) {`
`38`	`38`	`#' @name ${name}-shiny`
`39`	`39`	`#'`
`40`	`40`	`#' @export`
`41`		`-${name}Output <- function(outputId, width = '100%%', height = '400px'){`
	`41`	`+${name}Output <- function(outputId, width = '100%', height = '400px'){`
`42`	`42`	`htmlwidgets::shinyWidgetOutput(outputId, '${name}', width, height, package = '${package}')`
`43`	`43`	`}`
`44`	`44`
`@@ -57,6 +57,6 @@ ${name}_html <- function(id, style, class, ...) {`
`57`	`57`	`reactR::html_dependency_corejs(),`
`58`	`58`	`reactR::html_dependency_react(),`
`59`	`59`	`reactR::html_dependency_reacttools(),`
`60`		`- htmltools::tags$div(id = id, class = class)`
	`60`	`+ htmltools::tags$div(id = id, class = class, style = style)`
`61`	`61`	`)`
`62`	`62`	`}`