first working version

Author: timelyportfolio

.Rbuildignore

@@ -0,0 +1,3 @@
+^.*\.Rproj$
+^\.Rproj\.user$
+^\build

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

DESCRIPTION

@@ -0,0 +1,28 @@
+Package: reactR
+Type: Package
+Title: React Dependencies for R
+Version: 0.1.0
+Authors@R: c(
+      person(
+        "Facebook", "Inc"
+        , role = c("aut", "cph")
+        , comment = "react library in lib, https://facebook.github.io/react"
+      ),
+      person(
+        "Kent", "Russell"
+        , role = c("aut", "cre")
+        , comment = "R interface"
+        , email = "[email protected]"
+      )
+    )
+Maintainer: Kent Russell <[email protected]>
+Description: Make it easy .
+License: MIT + file LICENSE
+LazyData: TRUE
+Imports:
+    htmltools
+Suggests:
+    htmlwidgets (>= 0.6.0),
+    rmarkdown,
+    shiny
+RoxygenNote: 5.0.1

LICENSE

@@ -0,0 +1,2 @@
+YEAR: 2016
+COPYRIGHT HOLDER: Your name goes here

NAMESPACE

@@ -0,0 +1,4 @@
+# Generated by roxygen2: do not edit by hand
+
+export(html_dependency_react)
+importFrom(htmltools,htmlDependency)

R/dependencies.R

@@ -0,0 +1,42 @@
+#' Dependencies for React
+#'
+#' @param offline \code{logical} to use local file dependencies.  If \code{FALSE},
+#'          then the dependencies use the Facebook cdn as its \code{src}.
+#'
+#' @return \code{\link[htmltools]{htmlDependency}}
+#' @importFrom htmltools htmlDependency
+#' @export
+#'
+#' @examples
+#' library(reactR)
+#' library(htmltools)
+#'
+#' browsable(attachDependencies(
+#'   tags$script(
+#'   "
+#'     ReactDOM.render(
+#'       React.createElement(
+#'         'h1',
+#'         null,
+#'         'Powered by React'
+#'       ),
+#'       document.body
+#'     )
+#'   "
+#'   ),
+#'   html_dependency_react()
+#' ))
+html_dependency_react <- function(offline=TRUE){
+  hd <- htmltools::htmlDependency(
+    name = "react",
+    version = react_version(),
+    src = system.file("www/react",package="reactR"),
+    script = c("react.min.js", "react-dom.min.js")
+  )
+
+  if(!offline) {
+    hd$src = c(href="https://fb.me")
+  }
+
+  hd
+}

R/meta.R

@@ -0,0 +1,2 @@
+#'@keywords internal
+react_version <- function(){'15.1.0'}

build/getreact.R

@@ -0,0 +1,35 @@
+# use the very nice rgithub
+# devtools::install_github("cscheid/rgithub")
+
+get_react_latest <- function(){
+  gsub(
+    x=github::get.latest.release("facebook", "react")$content$tag_name,
+    pattern="v",
+    replacement=""
+  )
+}
+
+# get newest react
+download.file(
+  url=sprintf(
+    "https://fb.me/react-%s.min.js",
+    get_react_latest()
+  ),
+  destfile="./inst/www/react/react.min.js"
+)
+
+# get newest react dom
+download.file(
+  url=sprintf(
+    "https://fb.me/react-dom-%s.min.js",
+    get_react_latest()
+  ),
+  destfile="./inst/www/react/react-dom.min.js"
+)
+
+# write function with newest version
+#  for use when creating dependencies
+cat(
+  sprintf("#'@keywords internal\nreact_version <- function(){'%s'}", get_react_latest()),
+  file = "./R/meta.R"
+)

inst/www/react/react-dom.min.js

@@ -0,0 +1,12 @@
+/**
+ * ReactDOM v15.1.0
+ *
+ * Copyright 2013-present, Facebook, Inc.
+ * All rights reserved.
+ *
+ * This source code is licensed under the BSD-style license found in the
+ * LICENSE file in the root directory of this source tree. An additional grant
+ * of patent rights can be found in the PATENTS file in the same directory.
+ *
+ */
+!function(e){if("object"==typeof exports&&"undefined"!=typeof module)module.exports=e(require("react"));else if("function"==typeof define&&define.amd)define(["react"],e);else{var f;f="undefined"!=typeof window?window:"undefined"!=typeof global?global:"undefined"!=typeof self?self:this,f.ReactDOM=e(f.React)}}(function(e){return e.__SECRET_DOM_DO_NOT_USE_OR_YOU_WILL_BE_FIRED});