add back shiny

Author: timelyportfolio

DESCRIPTION

@@ -1,10 +1,19 @@
 Package: roffice
 Version: 0.0.0.9000
-Title: What the Package Does (One Line, Title Case)
-Description: What the package does (one paragraph).
-Authors@R: person("First", "Last", , "[email protected]", c("aut", "cre"))
+Date: 2018-12-30
+Title: 'office-ui-fabric-react' Wrapped as a 'htmlwidget'
+Description: Demonstrates how to use the new helper functionality in 'reactR' to inject the world
+             of office-ui-fabric-react components into the R experience.
+Authors@R: person("Kenton", "Russell", , "[email protected]", c("aut", "cre"))
 License: MIT + file LICENSE
 Encoding: UTF-8
+URL: https://github.com/timelyportfolio/roffice
+BugReports: https://github.com/timelyportfolio/roffice/issues
 LazyData: true
 ByteCompile: true
 RoxygenNote: 6.0.1
+Imports: 
+    htmltools,
+    htmlwidgets,
+    reactR
+

NAMESPACE

@@ -1,5 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(officeuiwidget)
+export(officeuiwidgetOutput)
+export(renderOfficeuiwidget)
 export(roffice_deps)
 import(htmlwidgets)

R/shiny.R

@@ -0,0 +1,27 @@
+#' Shiny bindings for officeuiwidget
+#'
+#' Output and render functions for using officeuiwidget within Shiny
+#' applications and interactive Rmd documents.
+#'
+#' @param outputId output variable to read from
+#' @param width,height Must be a valid CSS unit (like \code{'100\%'},
+#'   \code{'400px'}, \code{'auto'}) or a number, which will be coerced to a
+#'   string and have \code{'px'} appended.
+#' @param expr An expression that generates a officeuiwidget
+#' @param env The environment in which to evaluate \code{expr}.
+#' @param quoted Is \code{expr} a quoted expression (with \code{quote()})? This
+#'   is useful if you want to save an expression in a variable.
+#'
+#' @name officeuiwidget-shiny
+#'
+#' @export
+officeuiwidgetOutput <- function(outputId, width = '100%', height = '400px'){
+  htmlwidgets::shinyWidgetOutput(outputId, 'officeuiwidget', width, height, package = 'roffice')
+}
+
+#' @rdname officeuiwidget-shiny
+#' @export
+renderOfficeuiwidget <- function(expr, env = parent.frame(), quoted = FALSE) {
+  if (!quoted) { expr <- substitute(expr) } # force quoted
+  htmlwidgets::shinyRenderWidget(expr, officeuiwidgetOutput, env, quoted = TRUE)
+}

inst/examples/starter.R

@@ -4,14 +4,14 @@
 library(reactR)
 library(roffice)
 
-# just one prop
+# slider with just one prop
 officeuiwidget(
   reactR::React$Slider(label = "Basic Slider")
   # alternately
   # component("Slider", varArgs = list(label = "Basic Slider"))
 )
 
-# more props and a combination
+# slider with more props and a combination
 officeuiwidget(
   reactR::React$Slider(label = "Basic Slider"),
   reactR::React$Slider(

inst/htmlwidgets/officeuiwidget.js

@@ -1,3 +1,6 @@
+// trick to include React Fragment component
+//  which is like an empty container
 Fabric.Fragment = React.Fragment;
 
+// office-ui-fabric namespaces all the components with Fabric
 reactR.reactWidget('officeuiwidget', 'output', Fabric);