feat: added waiter and turned ggplot into plotly

app/main.R

@@ -1,8 +1,9 @@
 box::use(
-  shiny[tagList, div, reactive, moduleServer, observeEvent, NS, renderUI, tags, uiOutput, numericInput],
+  shiny[tagList, div, req, reactive, moduleServer, observeEvent, NS, renderUI, tags, uiOutput, numericInput],
   bslib[page_sidebar, nav_panel, navset_tab],
   data.table[fread],
   shinyWidgets[pickerInput, materialSwitch],
+  waiter[useWaiter],
   shinyjs[hidden, disable, enable, useShinyjs]
 )
 
@@ -17,6 +18,7 @@ box::use(
 ui <- function(id) {
   ns <- NS(id)
   page_sidebar(
+    useWaiter(),
     useShinyjs(),
     title = "New York bridges analysis",
     sidebar = my_sidebar(ns),
@@ -41,6 +43,9 @@ server <- function(id) {
     data <- reactive({fread("data/bike_data_filtered_long.csv")})
     
     recompute_trigger <- reactive({
+      req(input$data_group_input)
+      req(input$prior_a_input)
+      req(input$prior_b_input)
       list(input$data_group_input, input$prior_a_input, input$prior_b_input, input$jeffreys_prior)
     })
     

app/view/mod_poisson_model.R

@@ -1,9 +1,12 @@
 box::use(
-  shiny[observeEvent, tagList, numericInput, reactiveVal, moduleServer, actionButton, reactive, req, NS, plotOutput, renderPlot],
+  shiny[observeEvent, tagList, div, h3, numericInput, reactiveVal, moduleServer, actionButton, reactive, req, NS, plotOutput, renderPlot],
   bslib[layout_column_wrap, layout_sidebar, sidebar,  card, card_header],
   dplyr[bind_rows, filter],
   data.table[setnames],
   reactable[reactableOutput, reactable, renderReactable, colDef, colFormat, reactableTheme],
+  plotly[ggplotly, plotlyOutput, renderPlotly],
+  waiter[Waiter, spin_fading_circles]
+  
 )
 
 
@@ -19,6 +22,7 @@ box::use(
   ]
 )
 
+
 #' @export
 ui <- function(id) {
   ns <- NS(id)
@@ -116,6 +120,9 @@ server <- function(id, data, prior_a, prior_b, is_jeffreys) {
     
     observeEvent(recompute_prior_trigger(), {
       req(data())
+      waiter <- Waiter$new(html = tagList(div(class = "main-waiter", h3("Computing..."), spin_fading_circles())))
+      waiter$show()
+      
       prior_tab_dry <- get_poisson_prior_tab(input$theta_start, input$theta_end, prior_a, prior_b, 0.1, "Dry prior", is_jeffreys)
       prior_tab_rainy <- get_poisson_prior_tab(input$theta_start, input$theta_end, prior_a, prior_b, 0.1, "Rainy prior", is_jeffreys)
       
@@ -144,9 +151,11 @@ server <- function(id, data, prior_a, prior_b, is_jeffreys) {
       full_tab <- bind_rows(prior, posterior, likelihood)
       
       full_dist_tab(full_tab)
-      distribution_plot(get_distribution_plot(full_dist_tab(), input$linewidth_dist))
+      distribution_plot(ggplotly(get_distribution_plot(full_dist_tab(), input$linewidth_dist)))
       characteristics_reactable(compute_characteristics(prior_a, prior_b, n_dry, y_dry, posterior_tab_dry, n_wet, y_wet, posterior_tab_rainy))
       #sensitivity_plot(get_poisson_sensitivity_plot(prior_a, prior_b, n, y))
+      waiter$hide()
+      
     })
     
     observeEvent(input$btn_redraw_sensitivity, {
@@ -171,7 +180,7 @@ server <- function(id, data, prior_a, prior_b, is_jeffreys) {
     })
     
     
-    output$distribution_plot <- renderPlot({
+    output$distribution_plot <- renderPlotly({
       req(distribution_plot())
       distribution_plot()
     })
@@ -242,7 +251,7 @@ plot_card <- function(header, plot_id, settings = NULL, btn_id = NULL, btn_label
         settings,
         actionButton(btn_id, btn_label),
       ),
-      plotOutput(plot_id)
+      plotlyOutput(plot_id)
     )
   )
 } 

app/view/mod_value_boxes.R

@@ -23,7 +23,7 @@ server <- function(id, data) {
     output$value_boxes_uioutput <- renderUI({
       layout_column_wrap(
         value_box(
-          title = "Number of measured weeks",
+          title = "Number of measured days",
           value = nrow(data()),
           showcase = bs_icon("calendar-date"),
           theme = "blue"

dependencies.R

@@ -14,3 +14,4 @@ library(shinyjs)
 library(shinyWidgets)
 library(tidyr)
 library(VGAM)
+library(waiter)

renv.lock

@@ -1666,6 +1666,18 @@
       ],
       "Hash": "390f9315bc0025be03012054103d227c"
     },
+    "waiter": {
+      "Package": "waiter",
+      "Version": "0.2.5",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "R6",
+        "htmltools",
+        "shiny"
+      ],
+      "Hash": "93e6b6c8ae3f81d4be77a0dc74e5cf5e"
+    },
     "waldo": {
       "Package": "waldo",
       "Version": "0.5.2",