add data population to calc

2026-07-30 05:08:57 +00:00 · 2025-08-03 00:46:45 -04:00
parent d302d2c59d
commit 248665fdf6
2 changed files with 74 additions and 1 deletions
@@ -1032,7 +1032,56 @@ calculator_storm_selection <- reactiveValues(
  full_lf_id = NULL,
 )

+observeEvent(input$impact_populate_storm, {
+  calculator_storm_selection$storm_basin = input$impact_storm_basin
+  calculator_storm_selection$storm_year = input$impact_storm_year
+  calculator_storm_selection$storm_name = input$impact_storm_name
+  calculator_storm_selection$full_lf_id = input$impact_storm_full_lf_id

+  calculator_storm_details <- get_lf_type_factors(calculator_storm_selection)
+
+  updateTextInput(
+    session,
+    "impact_lat",
+    value = calculator_storm_details$lat
+  )
+
+  updateTextInput(
+    session,
+    "impact_lon",
+    value = calculator_storm_details$lon
+  )
+
+  updateTextInput(
+    session,
+    "impact_rmw",
+    value = calculator_storm_details$rmw
+  )
+
+  updateSliderInput(
+    session,
+    "impact_rmw_slider",
+    value = calculator_storm_details$rmw
+  )
+
+  updateTextInput(
+    session,
+    "impact_base_year",
+    value = calculator_storm_details$storm_year
+  )
+
+  updateTextInput(
+    session,
+    "impact_ref_year",
+    value = "2024"
+  )
+
+  updateTextInput(
+    session,
+    "impact_base_damage",
+    value = calculator_storm_details$mwr
+  )
+})
 ```

 Column {data-width=700}