Removed Flash chart examples

mages · Apr 23, 2022 · f381671 · f381671
1 parent 7e96f58
commit f381671
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 83 deletions.
diff --git a/demo/googleVis.R b/demo/googleVis.R
@@ -402,40 +402,4 @@ plot(GT)
 ## ---- pause ----
 pause()
 
-## Flash charts
-## ---- MotionChart ----
-Motion=gvisMotionChart(Fruits, 
-                       idvar="Fruit", 
-                       timevar="Year")
-plot(Motion)
-
-## ---- pause ----
-pause()
-
-
-## You can change some of displaying settings via the browser,
-## e.g. the level of opacity of non-selected items, or the chart type.
-## The state string from the 'Advanced' tab can be used to set those
-## settings via R. Just copy and past the string from the browser into
-## the argument state of the options list.
-## Here is an example of a motion chart, with an initial line chart
-## displayed.
-
-## ---- MotionChartSettings ----
-myStateSettings <-'
-{"xZoomedDataMin":1199145600000,"colorOption":"2",
-"duration":{"timeUnit":"Y","multiplier":1},"yLambda":1,
-"yAxisOption":"4","sizeOption":"_UNISIZE",
-"iconKeySettings":[],"xLambda":1,"nonSelectedAlpha":0,
-"xZoomedDataMax":1262304000000,"iconType":"LINE",
-"dimensions":{"iconDimensions":["dim0"]},
-"showTrails":false,"uniColorForNonSelected":false,
-"xAxisOption":"_TIME","orderedByX":false,"playDuration":15000,
-"xZoomedIn":false,"time":"2010","yZoomedDataMin":0,
-"yZoomedIn":false,"orderedByY":false,"yZoomedDataMax":100}
-'
-M <- gvisMotionChart(Fruits, "Fruit", "Year", options=list(state=myStateSettings))
-plot(M)
-
-
 ## See demo(package='googleVis') for other available demos.
diff --git a/vignettes/googleVis_examples.R b/vignettes/googleVis_examples.R
@@ -301,28 +301,3 @@ T <- gvisTable(Exports,
 GT <- gvisMerge(G,T, horizontal=TRUE) 
 plot(GT)
 
-## ----MotionChart, results='asis', tidy=FALSE----------------------------------
-Motion=gvisMotionChart(Fruits, 
-                       idvar="Fruit", 
-                       timevar="Year")
-plot(Motion)
-
-## ----MotionChartSettings, results='asis', tidy=FALSE--------------------------
-myStateSettings <-'
-{"xZoomedDataMin":1199145600000,"colorOption":"2",
-"duration":{"timeUnit":"Y","multiplier":1},"yLambda":1,
-"yAxisOption":"4","sizeOption":"_UNISIZE",
-"iconKeySettings":[],"xLambda":1,"nonSelectedAlpha":0,
-"xZoomedDataMax":1262304000000,"iconType":"LINE",
-"dimensions":{"iconDimensions":["dim0"]},
-"showTrails":false,"uniColorForNonSelected":false,
-"xAxisOption":"_TIME","orderedByX":false,"playDuration":15000,
-"xZoomedIn":false,"time":"2010","yZoomedDataMin":0,
-"yZoomedIn":false,"orderedByY":false,"yZoomedDataMax":100}
-'
-M <- gvisMotionChart(Fruits, "Fruit", "Year", options=list(state=myStateSettings))
-plot(M)
-
-
-## See demo(package='googleVis') for other available demos.
-
diff --git a/vignettes/googleVis_examples.Rmd b/vignettes/googleVis_examples.Rmd
@@ -178,25 +178,3 @@ Left mouse-click to drill down, right mouse-click to move up a level.
 ```{r gvisMerge, results='asis', tidy=FALSE}
 ```
 
-# Flash charts
-All the following chart requires a Flash player.
-
-
-## Motion chart
-
-The Google motion chart requires Flash, which is no longer
-supported by most browsers. An alternative is `plotly::ggplotly`. For more see [https://plotly.com/r/animations/#mulitple-trace-animations](https://plotly.com/r/animations/#mulitple-trace-animations)
-
-```{r MotionChart, results='asis', tidy=FALSE}
-```
-
-You can change some of displaying settings via the browser,
-e.g. the level of opacity of non-selected items, or the chart type.
-The state string from the 'Advanced' tab can be used to set those
-settings via R. Just copy and past the string from the browser into
-the argument state of the options list.
-Here is an example of a motion chart, with an initial line chart
-displayed.
-
-```{r MotionChartSettings, results='asis', tidy=FALSE}
-```