+
+
+
+``` r
+library(shiny)
+library(shinyreact)
+
+# Set up the page UI using shinyreact
+ui <- page_react()
+
+server <- function(input, output, session) {
+ x <- faithful$waiting
+
+ breaks <- reactive({
+ seq(min(x), max(x), length.out = input$bin_count + 1)
+ })
+
+ # Use `reactive_output()` to send data to the client
+ output$dist_data <- reactive_output({
+ bins <- hist(x, breaks = breaks(), plot = FALSE)
+ list(breaks = I(bins$breaks), counts = I(bins$counts))
+ })
+}
+
+shinyApp(ui, server)
+```
+
+
+
+
+``` python
+import numpy as np
+import pandas as pd
+from shiny.express import input
+from shinyreact import reactive_output, set_react_page
+
+# Set up the page UI using shinyreact
+set_react_page()
+
+x = pd.read_csv("faithful.csv")["waiting"].to_numpy()
+
+
+@reactive_output
+def dist_data():
+ breaks = np.linspace(x.min(), x.max(), input.bin_count() + 1)
+ counts, _ = np.histogram(x, bins=breaks)
+ return {"breaks": breaks.tolist(), "counts": counts.tolist()}
+```
+
+
+
+