very incomplete but minimally working start

Author: timelyportfolio

.Rbuildignore

@@ -0,0 +1,2 @@
+^roffice\.Rproj$
+^\.Rproj\.user$

.gitignore

@@ -0,0 +1,2 @@
+.Rproj.user
+.Rhistory

DESCRIPTION

@@ -0,0 +1,10 @@
+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"))
+License: MIT + file LICENSE
+Encoding: UTF-8
+LazyData: true
+ByteCompile: true
+RoxygenNote: 6.0.1

LICENSE

@@ -0,0 +1,2 @@
+YEAR: 2018
+COPYRIGHT HOLDER: Kenton Russell

NAMESPACE

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

R/dependencies.R

@@ -0,0 +1,13 @@
+#' Dependencies for "office-ui-fabric-react"
+#'
+#' @return htmltools::htmlDependency
+#' @export
+roffice_deps <- function() {
+  htmltools::htmlDependency(
+    name = "office-ui-fabric-react",
+    version = "6.118.0",
+    src = "htmlwidgets/office-ui-fabric-react",
+    script = "office-ui-fabric-react.js",
+    package = "roffice"
+  )
+}

R/widget.R

@@ -0,0 +1,28 @@
+#' <Add Title>
+#'
+#' <Add Description>
+#'
+#' @import htmlwidgets
+#'
+#' @export
+officeuiwidget <- function(...) {
+  htmlwidgets::createWidget(
+    name = 'officeuiwidget',
+    list(tag = reactR::component("Fragment", c(list(...)))),
+    width = NULL,
+    height = NULL,
+    package = 'roffice',
+    elementId = NULL
+  )
+}
+
+# Magical
+officeuiwidget_html <- function(id, style, class, ...) {
+  htmltools::tagList(
+    reactR::html_dependency_corejs(),
+    reactR::html_dependency_react(),
+    reactR::html_dependency_reacttools(),
+    roffice_deps(),
+    htmltools::tags$div(id = id, class = class)
+  )
+}

README.md

@@ -0,0 +1,25 @@
+# roffice
+
+`roffice` is a package designed to demonstrate the new functionality included in [`reactR`](https://github.com/timelyportfolio/reactR) to leverage [`React`](https://reactjs.org/) and its diverse array of components as `htmlwidgets` in R.
+
+> Alan Dilpert session at [rstudio::conf](http://www.cvent.com/events/rstudio-conf-austin/agenda-dd6d75526f3c4554b67c4de32aeffb47.aspx)
+
+In `roffice` we illustrate some alternate techniques
+
+## Installation
+
+You can install the released version of `roffice` from Github.  We will also need to install the `enhancements` branch of `reactR`.
+
+``` r
+devtools::install_github("timelyportfolio/reactR@enhancements")
+devtools::install_github("timelyportfolio/roffice")
+```
+
+## Example
+
+This is a basic example which shows you how to solve a common problem:
+
+``` r
+## basic example code
+```
+

inst/examples/starter.R

@@ -0,0 +1,25 @@
+#devtools::install_github("timelyportfolio/reactR@enhancements")
+#devtools::install_github("timelyportfolio/roffice")
+
+library(reactR)
+library(roffice)
+
+# just one prop
+officeuiwidget(
+  reactR::React$Slider(label = "Basic Slider")
+  # alternately
+  # component("Slider", varArgs = list(label = "Basic Slider"))
+)
+
+# more props and a combination
+officeuiwidget(
+  reactR::React$Slider(label = "Basic Slider"),
+  reactR::React$Slider(
+    label = "slider with props",
+    min = 1,
+    max = 5,
+    step = 1,
+    defaultValue = 2,
+    showValue = TRUE
+  )
+)