add mobx dependency function html_dependency_mobx()

Author: timelyportfolio

DESCRIPTION

@@ -2,13 +2,18 @@ Package: reactR
 Type: Package
 Title: React Helpers
 Version: 0.4.1
-Date: 2019-05-14
+Date: 2019-07-03
 Authors@R: c(
       person(
         "Facebook", "Inc"
         , role = c("aut", "cph")
         , comment = "React library in lib, https://facebook.github.io/react; see AUTHORS for full list of contributors"
       ),
+      person(
+        "Michel","Weststrate",
+        , role = c("aut", "cph")
+        , comment = "mobx library in lib, https://github.com/mobxjs"
+      ),
       person(
         "Kent", "Russell"
         , role = c("aut", "cre")

NAMESPACE

@@ -9,6 +9,7 @@ export(babel_transform)
 export(component)
 export(createReactShinyInput)
 export(html_dependency_corejs)
+export(html_dependency_mobx)
 export(html_dependency_react)
 export(html_dependency_reacttools)
 export(reactMarkup)

NEWS.md

@@ -6,6 +6,8 @@
 
 * Update react to `16.8.6`
 
+* Add `mobx` dependencies available through `html_dependency_mobx()`
+
 # reactR 0.4.0
 
 * Add Shiny input scaffold and functionality; [tutorial](https://react-r.github.io/reactR/articles/intro_inputs.html) and [pull 22](https://github.com/react-R/reactR/pull/22) thanks @alandipert

R/dependencies.R

@@ -85,3 +85,78 @@ html_dependency_reacttools <- function(){
     script = c("react-tools.js")
   )
 }
+
+#' Dependencies for 'mobx'
+#'
+#' Add JavaScript 'mobx' and 'mobx-react' dependency.  When using with 'react', the order
+#' of the dependencies is important, so please add \code{html_dependency_react()} before
+#' \code{html_dependency_mobx()}.
+#'
+#' @param react \code{logical} to add react 'mobx' dependencies.
+#'
+#' @return \code{\link[htmltools]{htmlDependency}}
+#' @importFrom htmltools htmlDependency
+#' @export
+#'
+#' @examples
+#' library(htmltools)
+#' library(reactR)
+#'
+#' browsable(
+#'   tagList(
+#'     html_dependency_mobx(react = FALSE),
+#'     div(id="test"),
+#'     tags$script(HTML(
+#' "
+#'   var obs = mobx.observable({val: null})
+#'   mobx.autorun(function() => {
+#'     document.querySelector('#test').innerText = obs.val
+#'   })
+#'   setInterval(
+#'     function() {obs.val++},
+#'     1000
+#'   )
+#' "
+#'     ))
+#'   )
+#' )
+#'
+#' # use with react
+#' library(htmltools)
+#' library(reactR)
+#'
+#' browsable(
+#'   tagList(
+#'     html_dependency_react(),
+#'     html_dependency_mobx(),
+#'     div(id="test"),
+#'     tags$script(HTML(babel_transform(
+#' "
+#'   var obs = mobx.observable({val: null})
+#'   var App = mobxReact.observer((props) => <div>{props.obs.val}</div>)
+#'
+#'   ReactDOM.render(<App obs = {obs}/>, document.querySelector('#test'))
+#'
+#'   setInterval(
+#'     function() {obs.val++},
+#'     1000
+#'   )
+#' "
+#'     )))
+#'   )
+#' )
+
+html_dependency_mobx <- function(react = TRUE){
+  hd <- htmltools::htmlDependency(
+    name = "mobx",
+    version = "4.11.0",
+    src = system.file("www/mobx",package="reactR"),
+    script = c("mobx.umd.min.js")
+  )
+
+  if(react) {
+     hd$script <- c(hd$script,"mobx-react-lite.js", "mobx-react.umd.js")
+  }
+
+  hd
+}

inst/www/mobx/LICENSE

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2015 Michel Weststrate
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.