Merge pull request #68 from cpsievert/interactives

small tweaks; bit.ly links; links to interactives

Author: cpsievert

DESCRIPTION

@@ -3,9 +3,9 @@ Title: This is not really an R package, but this is here to list the dependencie
 Version: 0.1
 Authors@R: person("Carson", "Sievert", email = "[email protected]",
                   role = c("aut", "cre"))
-Depends: R (>= 3.1.0)
 URL: https://github.com/cpsievert/plotly_book
-Imports:
+Depends: 
+  R (>= 3.1.0),
   tidyverse,
   shiny,
   plotly,
@@ -35,13 +35,15 @@ Imports:
   leaflet,
   colorspace,
   idbr,
-  emo
+  emo,
+  slopegraph
 SystemRequirements: pandoc (>= 1.12.3) - http://johnmacfarlane.net/pandoc
 Remotes:
-  ropensci/plotly,
   ramnathv/htmlwidgets,
   react-R/reactR,
   yihui/knitr#1650,
   hadley/ggstat,
   hadley/emo,
-  hrbrmstr/albersusa
+  hrbrmstr/albersusa,
+  hrbrmstr/ggalt,
+  leeper/slopegraph

Makefile

@@ -1,5 +1,6 @@
 gitbook:
 	mkdir -p docs/images && cp images/* docs/images
+	mkdir -p docs/interactives && cp -r interactives/* docs/interactives
 	Rscript --quiet _render.R "bookdown::gitbook"
 	cp _redirects docs/
 

_output.yml

@@ -13,6 +13,7 @@ bookdown::gitbook:
     after_body:
       - includes/rstudio-cloud.html
       - includes/ga.html
+      - includes/data-url.html
 
 bookdown::html_chapters:
   css: [css/style.css, css/toc.css]

_redirects

@@ -1,6 +1,7 @@
 https://plotly-book.cpsievert.me/* https://plotly-r.com/:splat 301!
 
-# redirect some links from from the 1st edition
+# redirect some links from the 1st edition
+
 https://plotly-r.com/plot-ly-for-collaboration.html https://plotly-r.com
 
 https://plotly-r.com/extending-ggplotly.html https://plotly-r.com/improving-ggplotly.html
@@ -16,3 +17,6 @@ https://plotly-r.com/linking-views-without-shiny.html https://plotly-r.com/clien
 https://plotly-r.com/shiny-plotly-inputs.html https://plotly-r.com/linking-views-with-shiny.html#shiny-plotly-inputs
 
 https://plotly-r.com/merging-plotly-objects.html https://plotly-r.com/arranging-views.html#arranging-plotly-objects
+
+
+https://plotly-r.com/interactives/shiny-drag-brush.html https://testing-apps.shinyapps.io/shiny-drag-brush

animation.Rmd

@@ -12,7 +12,7 @@ gg <- ggplot(gapminder, aes(gdpPercap, lifeExp, color = continent)) +
 ggplotly(gg)
 ```
 
-```{r animation-ggplotly, echo = FALSE, fig.cap = "(ref:animation-ggplotly)"}
+```{r animation-ggplotly, echo = FALSE, fig.cap = "(ref:animation-ggplotly)", out.extra = 'data-url="/interactives/animation-ggplotly.html"'}
 knitr::include_graphics("images/animation-ggplotly.png")
 ```
 
@@ -35,7 +35,7 @@ base %>%
   )
 ```
 
-```{r animation-opts, echo = FALSE, fig.cap = "(ref:animation-opts)"}
+```{r animation-opts, echo = FALSE, fig.cap = "(ref:animation-opts)", out.extra = 'data-url="/interactives/animation-opts.html"'}
 knitr::include_graphics("images/animation-opts.png")
 ```
 
@@ -53,20 +53,20 @@ base %>%
   animation_opts(frame = 1000, transition = 0, redraw = FALSE)
 ```
 
-```{r animation-factors, echo = FALSE, fig.cap = "(ref:animation-factors)"}
+```{r animation-factors, echo = FALSE, fig.cap = "(ref:animation-factors)", out.extra = 'data-url="/interactives/animation-factors.html"'}
 knitr::include_graphics("images/animation-factors.png")
 ```
 
 Both the `frame` and `ids` attributes operate on the trace level -- meaning that we can target specific layers of the graph to be animated. One obvious use case for this is to provide a background which displays every possible frame (which is not animated) and overlay the animated frames onto that background. Figure \@ref(fig:animation-targets) shows the same information as Figure \@ref(fig:animation-opts), but layers animated frames on top of a background of all the frames. As a result, it is easier to put a specific year into a global context.
 
 ```r
 base %>%
-  add_markers(color = ~continent, alpha = 0.2, showlegend = F) %>%
+  add_markers(color = ~continent, alpha = 0.2, alpha_stroke = 0.2, showlegend = F) %>%
   add_markers(color = ~continent, frame = ~year, ids = ~country) %>%
   animation_opts(1000, redraw = FALSE)
 ```
 
-```{r animation-targets, echo = FALSE, fig.cap = "(ref:animation-targets)"}
+```{r animation-targets, echo = FALSE, fig.cap = "(ref:animation-targets)", out.extra = 'data-url="/interactives/animation-targets.html"'}
 knitr::include_graphics("images/animation-targets.png")
 ```
 

arranging.Rmd

@@ -20,8 +20,7 @@ p2 <- plot_ly(economics, x = ~date, y = ~uempmed) %>%
 subplot(p1, p2)
 ```
 
-
-```{r subplot-simple, echo=FALSE, fig.cap="(ref:subplot-simple)"}
+```{r subplot-simple, echo=FALSE, fig.cap="(ref:subplot-simple)", out.extra = 'data-url="/interactives/subplot-simple.html"'}
 knitr::include_graphics("images/subplot-simple.svg")
 ```
 
@@ -36,7 +35,7 @@ plots <- lapply(vars, function(var) {
 subplot(plots, nrows = length(plots), shareX = TRUE, titleX = FALSE)
 ```
 
-```{r economics, echo=FALSE, fig.cap = "(ref:economics)"}
+```{r economics, echo=FALSE, fig.cap = "(ref:economics)", out.extra = 'data-url="/interactives/economics.html"'}
 knitr::include_graphics("images/economics.svg")
 ```
 
@@ -65,7 +64,7 @@ s <- subplot(
 layout(s, showlegend = FALSE)
 ```
 
-```{r joint, echo = FALSE, fig.cap = "(ref:joint)"}
+```{r joint, echo = FALSE, fig.cap = "(ref:joint)", out.extra = 'data-url="/interactives/joint.html"'}
 knitr::include_graphics("images/joint.svg")
 ```
 
@@ -85,7 +84,7 @@ subplot(
 )
 ```
 
-```{r recursive, echo = FALSE, fig.cap = "(ref:recursive)"}
+```{r recursive, echo = FALSE, fig.cap = "(ref:recursive)", out.extra = 'data-url="/interactives/recursive.html"'}
 knitr::include_graphics("images/recursive.svg")
 ```
 
@@ -117,7 +116,7 @@ subplot(barcharts, margin = 0.01) %>%
   colorbar(y = 0.5)
 ```
 
-```{r map-subplot, echo = FALSE, fig.cap = "(ref:map-subplot)"}
+```{r map-subplot, echo = FALSE, fig.cap = "(ref:map-subplot)", out.extra = 'data-url="/interactives/map-subplot.html"'}
 knitr::include_graphics("images/map-subplot.svg")
 ```
 
@@ -155,7 +154,7 @@ class(pm)
 ggplotly(pm)
 ```
 
-```{r ggpairs, echo = FALSE, fig.cap = "(ref:ggpairs)"}
+```{r ggpairs, echo = FALSE, fig.cap = "(ref:ggpairs)", out.extra = 'data-url="/interactives/ggpairs.html"'}
 knitr::include_graphics("images/ggpairs.svg")
 ```
 
@@ -204,7 +203,7 @@ economics_long %>%
   subplot(nrows = NROW(.), shareX = TRUE)
 ```
 
-```{r subplot-trellis, echo=FALSE, fig.cap = "(ref:subplot-trellis)"}
+```{r subplot-trellis, echo=FALSE, fig.cap = "(ref:subplot-trellis)", out.extra = 'data-url="/interactives/subplot-trellis.html"'}
 knitr::include_graphics("images/subplot-trellis.svg")
 ```
 
@@ -241,8 +240,6 @@ Although **flexdashboard** is a really excellent way to arrange web-based conten
 
 Figure \@ref(fig:flexdashboard-ggplotly) provides an example of embedding `ggplotly()` inside **flexdashboard** [@flexdashboard]. Since **flexdashboard** is an **rmarkdown** template, it automatically comes with many of things that make **rmarkdown** great: ability to produce standalone HTML, integration with other languages, and thoughtful integration with RStudio products like Connect. There are many other things to like about **flexdashboard**, including lots of easy-to-use theming options, multiple pages, storyboards, and even **shiny** integration. Explaining how the **flexdashboard** package actually works is beyond the scope of this book, but you can visit the website for documentation and more examples <https://rmarkdown.rstudio.com/flexdashboard/>.
 
-
-
 ```{r flexdashboard-ggplotly, echo = FALSE, fig.link="https://plotly-r.com/flexdashboard.html", fig.cap = "(ref:flexdashboard-ggplotly)"}
 knitr::include_graphics("images/flexdashboard.png")
 ```
@@ -266,7 +263,7 @@ fluidPage(
 )
 ```
 
-```{r fluid, echo = FALSE,  fig.cap = "(ref:fluid)"}
+```{r fluid, echo = FALSE, fig.cap = "(ref:fluid)", out.extra = 'data-url="/interactives/fluid.html"'}
 knitr::include_graphics("images/fluid.png")
 ```
 
@@ -296,7 +293,7 @@ browsable(div(
 ))
 ```
 
-```{r flexbox, echo = FALSE,  fig.cap = "(ref:flexbox)"}
+```{r flexbox, echo = FALSE, fig.cap = "(ref:flexbox)", out.extra = 'data-url="/interactives/flexbox.html"'}
 knitr::include_graphics("images/flexbox.png")
 ```
 

code/3Devents/app.R

@@ -0,0 +1,5 @@
+library(plotly)
+
+shiny::shinyAppDir(
+  system.file(package = "plotly", "examples", "shiny", "event_data_3D")
+)

code/discrete-event-data/app.R

@@ -0,0 +1,28 @@
+library(shiny)
+library(dplyr)
+library(plotly)
+
+ui <- fluidPage(
+  plotlyOutput("bars"),
+  verbatimTextOutput("click")
+)
+
+classes <- sort(unique(mpg$class))
+
+server <- function(input, output, session) {
+
+  output$bars <- renderPlotly({
+    ggplot(mpg, aes(class, fill = drv, customdata = drv)) + geom_bar()
+  })
+
+  output$click <- renderPrint({
+    d <- event_data("plotly_click")
+    if (is.null(d)) return("Click a bar")
+    mpg %>%
+      filter(drv %in% d$customdata) %>%
+      filter(class %in% classes[d$x])
+  })
+
+}
+
+shinyApp(ui, server)

code/event-priority/app.R

@@ -0,0 +1,29 @@
+library(shiny)
+library(plotly)
+
+ui <- fluidPage(
+  plotlyOutput("p"),
+  textOutput("time1"),
+  textOutput("time2")
+)
+
+server <- function(input, output, session) {
+
+  output$p <- renderPlotly({
+    plot_ly(x = 1:2, y = 1:2, size = I(c(100, 150)))  %>%
+      add_markers()
+  })
+
+  output$time1 <- renderText({
+    event_data("plotly_click")
+    paste("Input priority: ", Sys.time())
+  })
+
+  output$time2 <- renderText({
+    event_data("plotly_click", priority = "event")
+    paste("Event priority: ", Sys.time())
+  })
+
+}
+
+shinyApp(ui, server)

code/interactive-lm/app.R

@@ -0,0 +1,5 @@
+library(plotly)
+
+shiny::shinyAppDir(
+  system.file(package = "plotly", "examples", "shiny", "drag_markers")
+)