More workarounds

Author: cpsievert

demo/animation-tour-USArrests.R

@@ -3,6 +3,8 @@ library(plotly)
 
 data("USArrests")
 
+# Avoids R CMD check NOTE about using `tourr` without mentioning it in DESCRIPTION
+# Install it via CRAN `install.packages("tourr")`
 rescale <- getFromNamespace("rescale", "tourr")
 new_tour <- getFromNamespace("new_tour", "tourr")
 grand_tour <- getFromNamespace("grand_tour", "tourr")

demo/animation-tour-basic.R

@@ -1,13 +1,22 @@
 # adapted from  https://github.com/rstudio/ggvis/blob/master/demo/tourr.r
-library(tourr)
 library(plotly)
 
+# Avoids R CMD check NOTE about using `tourr` without mentioning it in DESCRIPTION
+# Install it `install.packages("tourr")`
+rescale <- getFromNamespace("rescale", "tourr")
+new_tour <- getFromNamespace("new_tour", "tourr")
+grand_tour <- getFromNamespace("grand_tour", "tourr")
+lazyLoad(
+  file.path(system.file("data", package = "tourr"), "Rdata"),
+  filter = function(x) x == "flea"
+)
+
 mat <- rescale(as.matrix(flea[1:6]))
 tour <- new_tour(mat, grand_tour(), NULL)
 
 tour_dat <- function(step_size) {
   step <- tour(step_size)
-  proj <- center(mat %*% step$proj)
+  proj <- scale(mat %*% step$proj, center = TRUE, scale = FALSE)
   data.frame(x = proj[,1], y = proj[,2], 
              species = flea$species)
 }

demo/crosstalk-filter-lines.R

@@ -2,7 +2,12 @@ library(crosstalk)
 library(ggplot2)
 library(plotly)
 
-data(gapminder, package = "gapminder")
+# Equivalent to data(gapminder, package = "gapminder"), but avoids R CMD check NOTE 
+# about `gapminder` not being in DESCRIPTION. Install it `install.packages("gapminder")`
+lazyLoad(
+  file.path(system.file("data", package = "gapminder"), "Rdata"),
+  filter = function(x) x == "gapminder"
+)
 
 sd <- highlight_key(gapminder)