Setup sample data and libraries
library(crosstalk)
library(leaflet)
library(DT)
# Wrap data frame in SharedData
sd <- SharedData$new(quakes[sample(nrow(quakes), 10),])R / crosstalk does not work together with the leaflet Marker Clustering:
# Use SharedData like a dataframe with Crosstalk-enabled widgets
bscols(
# Create a filter input
filter_slider("mag", "Magnitude", sd, column=~mag, step=0.1, width=250),
leaflet(sd) %>% addTiles() %>% addMarkers( clusterOptions = markerClusterOptions()),
datatable(sd, extensions="Scroller", style="bootstrap", class="compact", width="100%",
options=list(deferRender=TRUE, scrollY=300, scroller=TRUE))
)## Assuming 'long' and 'lat' are longitude and latitude, respectivelyFor comparism, this example without clustering works just fine:
# Use SharedData like a dataframe with Crosstalk-enabled widgets
bscols(
# Create a filter input
filter_slider("mag", "Magnitude", sd, column=~mag, step=0.1, width=250),
leaflet(sd) %>% addTiles() %>% addMarkers(),
datatable(sd, extensions="Scroller", style="bootstrap", class="compact", width="100%",
options=list(deferRender=TRUE, scrollY=300, scroller=TRUE))
)## Assuming 'long' and 'lat' are longitude and latitude, respectivelysessionInfo()## R version 3.4.2 (2017-09-28)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 16.04.3 LTS
##
## Matrix products: default
## BLAS: /usr/lib/libblas/libblas.so.3.6.0
## LAPACK: /usr/lib/lapack/liblapack.so.3.6.0
##
## locale:
## [1] LC_CTYPE=de_DE.UTF-8 LC_NUMERIC=C
## [3] LC_TIME=de_DE.UTF-8 LC_COLLATE=de_DE.UTF-8
## [5] LC_MONETARY=de_DE.UTF-8 LC_MESSAGES=de_DE.UTF-8
## [7] LC_PAPER=de_DE.UTF-8 LC_NAME=C
## [9] LC_ADDRESS=C LC_TELEPHONE=C
## [11] LC_MEASUREMENT=de_DE.UTF-8 LC_IDENTIFICATION=C
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] DT_0.2.12 leaflet_1.1.0.9000 crosstalk_1.0.1
##
## loaded via a namespace (and not attached):
## [1] Rcpp_0.12.13 digest_0.6.12 rprojroot_1.2 mime_0.5
## [5] R6_2.2.2 jsonlite_1.5 xtable_1.8-2 backports_1.1.1
## [9] magrittr_1.5 evaluate_0.10.1 stringi_1.1.5 lazyeval_0.2.1
## [13] rmarkdown_1.7 tools_3.4.2 stringr_1.2.0 htmlwidgets_0.9
## [17] shiny_1.0.5 httpuv_1.3.5 yaml_2.1.14 compiler_3.4.2
## [21] htmltools_0.3.6 knitr_1.17devtools::session_info()## Session info -------------------------------------------------------------## setting value
## version R version 3.4.2 (2017-09-28)
## system x86_64, linux-gnu
## ui X11
## language de_DE
## collate de_DE.UTF-8
## tz Europe/Berlin
## date 2017-11-16## Packages -----------------------------------------------------------------## package * version date source
## backports 1.1.1 2017-09-25 CRAN (R 3.4.2)
## base * 3.4.2 2017-10-28 local
## compiler 3.4.2 2017-10-28 local
## crosstalk * 1.0.1 2017-10-17 Github (rstudio/crosstalk@d8f29eb)
## datasets * 3.4.2 2017-10-28 local
## devtools 1.13.4 2017-11-09 CRAN (R 3.4.2)
## digest 0.6.12 2017-01-27 CRAN (R 3.4.0)
## DT * 0.2.12 2017-10-17 Github (rstudio/DT@ea15ab9)
## evaluate 0.10.1 2017-06-24 CRAN (R 3.4.2)
## graphics * 3.4.2 2017-10-28 local
## grDevices * 3.4.2 2017-10-28 local
## htmltools 0.3.6 2017-04-28 CRAN (R 3.4.2)
## htmlwidgets 0.9 2017-07-10 CRAN (R 3.4.2)
## httpuv 1.3.5 2017-07-04 cran (@1.3.5)
## jsonlite 1.5 2017-06-01 CRAN (R 3.4.2)
## knitr 1.17 2017-08-10 CRAN (R 3.4.2)
## lazyeval 0.2.1 2017-10-29 CRAN (R 3.4.2)
## leaflet * 1.1.0.9000 2017-10-17 Github (rstudio/leaflet@d489e2c)
## magrittr 1.5 2014-11-22 CRAN (R 3.4.0)
## memoise 1.1.0 2017-04-21 CRAN (R 3.4.0)
## methods * 3.4.2 2017-10-28 local
## mime 0.5 2016-07-07 CRAN (R 3.4.0)
## R6 2.2.2 2017-06-17 CRAN (R 3.4.2)
## Rcpp 0.12.13 2017-09-28 CRAN (R 3.4.2)
## rmarkdown 1.7 2017-11-10 CRAN (R 3.4.2)
## rprojroot 1.2 2017-01-16 cran (@1.2)
## shiny 1.0.5 2017-08-23 cran (@1.0.5)
## stats * 3.4.2 2017-10-28 local
## stringi 1.1.5 2017-04-07 CRAN (R 3.4.0)
## stringr 1.2.0 2017-02-18 CRAN (R 3.4.0)
## tools 3.4.2 2017-10-28 local
## utils * 3.4.2 2017-10-28 local
## withr 2.1.0 2017-11-01 CRAN (R 3.4.2)
## xtable 1.8-2 2016-02-05 cran (@1.8-2)
## yaml 2.1.14 2016-11-12 CRAN (R 3.4.0)