Last active
October 5, 2022 23:12
-
-
Save ijlyttle/b2c29290bd9794072d0b9f08e471013a to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Example of vegawidget with dynamic data and signal | |
| # | |
| # To use shiny_get_signal along with dynamic data (on R side), you have to use | |
| # shiny_set_data as well. This is because the binding of shiny_get_signal breaks | |
| # if you use normal reactive data (see other file in this folder). | |
| # | |
| # shiny_set_data work saround that problem and uses an elegant reactive solution | |
| # | |
| # based on: https://github.com/rhenkin/rsnippets/blob/main/vegawidget_shinygetsignal/app_working.R | |
| # | |
| library(shiny) | |
| library(vegawidget) | |
| ui <- fluidPage( | |
| sliderInput("minimum_mpg", | |
| "Select minimum mpg", | |
| min(mtcars$mpg), | |
| max(mtcars$mpg),min(mtcars$mpg) | |
| ), | |
| vegawidgetOutput("scatterplot",width = 200, height = 200), | |
| # use verbatimTextOutput | |
| verbatimTextOutput("print_fill_sel") | |
| ) | |
| server <- function(input, output, session) { | |
| output$scatterplot <- renderVegawidget({ | |
| list( | |
| `$schema` = "https://vega.github.io/schema/vega-lite/v5.json", | |
| params = list( | |
| list(name = "fill_sel", | |
| select = list(type = "point", | |
| fields = list("cyl"), | |
| on = "click", | |
| clear = "dblclick", | |
| toggle = FALSE), | |
| bind = "legend") | |
| ), | |
| # Note the use of name = "source" | |
| data = list(name = "source"), | |
| mark = list(type = "point", filled = TRUE), | |
| encoding = list( | |
| x = list(field = "mpg", type = "quantitative"), | |
| y = list(field = "wt", type = "quantitative"), | |
| color = list( | |
| condition = list( | |
| param = "fill_sel", | |
| field = "cyl", | |
| type = "ordinal" | |
| ), | |
| value = "#bbbbbb" | |
| ) | |
| ) | |
| ) %>% | |
| as_vegaspec() | |
| }) | |
| # This block is bound to input$minimum_mpg | |
| df <- reactive({ | |
| df <- mtcars[mtcars$mpg >= input$minimum_mpg,] | |
| }) | |
| vw_shiny_set_data("scatterplot", "source", df()) | |
| # reactive | |
| rct_list_click <- | |
| vw_shiny_get_event("scatterplot", event = "click", body_value = "datum") | |
| output$print_fill_sel <- | |
| renderPrint({ rct_list_click() %>% jsonlite::toJSON(auto_unbox = TRUE) }) | |
| } | |
| shinyApp(ui, server) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment