VIS-992: add test, use rhtmlBuildUtils

.travis.yml

@@ -1,36 +1,9 @@
-language: R
-cache: packages
-warnings_are_errors: false
-
-r:
-  - devel
-  - oldrel
-  - release
-
-addons:
-  apt:
-    sources:
-      - sourceline: 'ppa:ubuntugis/ppa'
-    packages:
-      - libudunits2-dev
-      - libproj-dev
-      - libgeos-dev
-      - libgdal-dev
-
-env:
-  global:
-    # don't treat missing suggested packages as error
-    - _R_CHECK_FORCE_SUGGESTS_=false
-    # plotly_api_key (for posting to plot.ly)
-    - secure: "WsvmMHN4YVhnk0bLRE04APcLbs5s4vWKSHjEdU0bPXd0xdMTzZeP5D7pxyF1983C+P5LpSnGHv4dgwLMBkNzxJwBR7/Ta7lfO1akYILWwxib+1DVbCqUH5Z4Ba1FSCQptIrLNGR3P7+0Lem4hEhqKdPKltFnxhnXO0Y+MeG71IQ="
-    # MAPBOX_TOKEN (for testing `plot_mapbox()`)
-    - secure: "QPBEqtLRdwb4ablJORzD0JdCT9ESe3nNdIehM1oxfcNKfpSdf2OFxH3TkeYY1nMpv0mLxiMNTy6xcj9Yk5MaaBCIA0P7q6OdZv9ruzQD1j3g84gP45KwBilbPGjb+/EvOS0fM25vR/pAmA8IyoUfPC2J8HwiNnW8DYdt/hJOJ9A="
-    # GITHUB_PAT
-    - secure: "lZf7GBt1+ogux5WAXmIZ6/VBTmR1G7rv+8Aevogfan7GWb32K3IVatsrKr1pSvz0hysP0MDueQqTv0GcNOvrFnYvobyo6fFpx+n33WkXQCGybUOHyfJpPdw1L2wtAy88ugNJDl+n9fdXr4yL2cWvRqq4WBKeeSi6hpdiKOaoB3Y="
-
+language: node_js
+node_js:
+  - "12"
+sudo: required
+dist: xenial
 before_install:
-  - echo "Sys.setenv('plotly_username' = 'cpsievert')" > ~/.Rprofile
-
-before_script:
-  - if [[ "$TRAVIS_R_VERSION_STRING" == "release" ]]; then docker run -e GITHUB_PAT=$GITHUB_PAT -e MAPBOX_TOKEN=$MAPBOX_TOKEN -e VMODE="ci" -v $(pwd):/home/plotly --privileged cpsievert/plotly-orca; fi
-
+  - sudo apt-get update
+script:
+  - jest

README.md

@@ -1,114 +1,3 @@
+This is a fork of the ropensci/plotly HtmlWidget for use in Displayr. The repository has been modified to be an node package and use the rhtmlBuildUtils framework. This was done in order to run unit tests on the widget js code, which has been modified by Displayr. The integration with rhtmlBuildUtils is incomplete, and only the building and unit testing of widget js code is supported. Features from rhtmlBuildUtils such as visual regression testing, linting and the internal web server are absent.
 
-<!-- README.md is generated from README.Rmd. Please edit that file -->
-
-<img src="man/figures/plotly.png" width="200" />
-
-[![Build
-Status](https://travis-ci.org/ropensci/plotly.png?branch=master)](https://travis-ci.org/ropensci/plotly)
-[![CRAN
-Status](https://www.r-pkg.org/badges/version/plotly)](https://cran.r-project.org/package=plotly)
-[![CRAN
-Downloads](https://cranlogs.r-pkg.org/badges/grand-total/plotly)](https://www.rpackages.io/package/plotly)
-[![monthly](https://cranlogs.r-pkg.org/badges/plotly)](https://www.rpackages.io/package/plotly)
-
-An R package for creating interactive web graphics via the open source
-JavaScript graphing library
-[plotly.js](https://github.com/plotly/plotly.js).
-
-## Installation
-
-Install from CRAN:
-
-``` r
-install.packages("plotly")
-```
-
-Or install the latest development version (on GitHub) via devtools:
-
-``` r
-devtools::install_github("ropensci/plotly")
-```
-
-## Getting started
-
-### Web-based ggplot2 graphics
-
-If you use [ggplot2](https://github.com/tidyverse/ggplot2), `ggplotly()`
-converts your static plots to an interactive web-based version\!
-
-``` r
-library(plotly)
-g <- ggplot(faithful, aes(x = eruptions, y = waiting)) +
-  stat_density_2d(aes(fill = ..level..), geom = "polygon") + 
-  xlim(1, 6) + ylim(40, 100)
-ggplotly(g)
-```
-
-![<https://i.imgur.com/G1rSArP.gifv>](https://i.imgur.com/G1rSArP.gif)
-
-By default, `ggplotly()` tries to replicate the static ggplot2 version
-exactly (before any interaction occurs), but sometimes you need greater
-control over the interactive behavior. The `ggplotly()` function itself
-has some convenient “high-level” arguments, such as `dynamicTicks`,
-which tells plotly.js to dynamically recompute axes, when appropriate.
-The `style()` function also comes in handy for *modifying* the
-underlying trace
-attributes (e.g. [hoveron](https://plotly.com/r/reference/#scatter-hoveron)) used to generate the plot:
-
-``` r
-gg <- ggplotly(g, dynamicTicks = "y")
-style(gg, hoveron = "points", hoverinfo = "x+y+text", hoverlabel = list(bgcolor = "white"))
-```
-
-![<https://i.imgur.com/qRvLgea.gifv>](https://imgur.com/qRvLgea.gif)
-
-Moreover, since `ggplotly()` returns a plotly object, you can apply
-essentially any function from the R package on that object. Some useful
-ones include `layout()` (for [customizing the
-layout](https://plotly-r.com/improving-ggplotly.html#modifying-layout)),
-`add_traces()` (and its higher-level `add_*()` siblings, for example
-`add_polygons()`, for [adding new
-traces/data](https://plotly-r.com/improving-ggplotly.html#leveraging-statistical-output)),
-`subplot()` (for [combining multiple plotly
-objects](https://plotly-r.com/arranging-views.html#arranging-plotly-objects)),
-and `plotly_json()` (for inspecting the underlying JSON sent to
-plotly.js).
-
-The `ggplotly()` function will also respect some “unofficial”
-**ggplot2** aesthetics, namely `text` (for [customizing the
-tooltip](https://plotly-r.com/controlling-tooltips.html#tooltip-text-ggplotly)),
-`frame` (for [creating
-animations](https://plotly-r.com/animating-views.html)),
-and `ids` (for ensuring sensible smooth transitions).
-
-### Using plotly without ggplot2
-
-The `plot_ly()` function provides a more direct interface to plotly.js
-so you can leverage more specialized chart types (e.g., [parallel
-coordinates](https://plotly.com/r/parallel-coordinates-plot/) or
-[maps](https://plotly.com/r/maps/)) or even some visualization that the
-ggplot2 API won’t ever support (e.g., surface,
-[mesh](https://plotly.com/r/3d-mesh/),
-[trisurf](https://plotly.com/r/trisurf/), etc).
-
-``` r
-plot_ly(z = ~volcano, type = "surface")
-```
-
-![<https://plot.ly/~brnvg/1134>](https://plot.ly/~brnvg/1134.png)
-
-## Learn more
-
-To learn more about special features that the plotly R package provides (e.g., [client-side linking](https://plotly-r.com/client-side-linking.html), [**shiny** integration](https://plotly-r.com/linking-views-with-shiny.html), [editing and generating static images](https://plotly-r.com/publish.html), [custom events in JavaScript](https://plotly-r.com/javascript.html), and more), see <https://plotly-r.com>. You may already be familiar with existing plotly documentation (e.g., <https://plotly.com/r/>), which is essentially a language-agnostic how-to guide for learning plotly.js, whereas <https://plotly-r.com> is meant to be more wholistic tutorial written by and for the R user. The package itself ships with a number of demos (list them by running `demo(package = "plotly")`) and shiny/rmarkdown examples (list them by running `plotly_example("shiny")` or `plotly_example("rmd")`). [Carson](https://cpsievert.me) also keeps numerous [slide decks](https://talks.cpsievert.me) with useful examples and concepts.
-
-## Contributing
-
-Please read through our [contributing
-guidelines](https://github.com/ropensci/plotly/blob/master/CONTRIBUTING.md).
-Included are directions for opening issues, asking questions,
-contributing changes to plotly, and our code of
-conduct.
-
------
-
-![<https://ropensci.org>](https://www.ropensci.org/public_images/github_footer.png)
+Changes to widget js code should be made in [theSrc/tasks](theSrc/tasks) and `gulp compileWidgetEntryPoint` needs to be called to compile the code and write it to [inst/htmlwidgets](inst/htmlwidgets).

build/config/widget.config.js

@@ -0,0 +1,11 @@
+const cliArgs = require('yargs').argv
+const _ = require('lodash')
+
+const config = {
+  widgetEntryPoint: 'theSrc/scripts/plotly.js',
+  widgetFactory: 'theSrc/scripts/plotly.factory.js',
+  widgetName: 'plotly',
+}
+
+const commandLineOverides = _.omit(cliArgs, ['_', '$0'])
+module.exports = _.merge(config, commandLineOverides)

gulpfile.js

@@ -0,0 +1,8 @@
+const gulp = require('gulp')
+const rhtmlBuildUtils = require('rhtmlBuildUtils')
+
+const dontRegisterTheseTasks = []
+rhtmlBuildUtils.registerGulpTasks({ 
+  gulp: gulp, 
+  exclusions: dontRegisterTheseTasks 
+})