Integrate crosstalk without shiny

[g-pires]

Hi,

Is there a way to integrate the upsets and venns with crosstalk without using shiny ?
But rather using a classic Rmd like does plotly for example.

Thanks !

[sgratzl]

can you provide a plot.ly example to understand what you mean?

[g-pires]

Hi,

Of course, here is a reproducible example :

df <- data.frame(x = letters[1:20], y = runif(20))

shared_df <- crosstalk::SharedData$new(df)

f <- crosstalk::filter_select("id", "Select an x", shared_df, ~x)

p <- plotly::plot_ly(data = shared_df, 
                              x = ~x, 
                              y = ~y, 
                              type = "scatter", 
                              mode = "markers")

t <- reactable::reactable(shared_df)

crosstalk::bscols(f, p, t)

In this simple example, one can update the table AND the plot at the same time using the filter_select from crosstalk without using any shiny

[sgratzl]

so far filtered data is not supported via crosstalk since it would require to recompute the intersections.

the following crosstalk handler is registered:

upsetjs_r/js/htmlwidget.ts

Line 26 in 972b8d4

mode: 'click' | 'hover' | 'contextMenu';