inst/hbcdtlfb/www/R/observe/delete_table_confirmed.R

In ucsd-dsm/hbcd-tlfb: HBCD TLFB shiny app

# should match with output$table_substance_period.
df_table_substance_period <- timevis_data_cal() |> 
  filter(period %in% c("Pre-LMP", "Post-LMP", "Last Week", "Last Two Weeks Before Delivery"), 
         what == "Substance")

id_to_delete <- df_table_substance_period[input$table_substance_period_rows_selected, ] |> 
  pull(id)

timevis_data_cal(
  timevis_data_cal() |> 
    filter(id != id_to_delete)
)

removeModal()

save_aws(
  data = timevis_data_cal(),
  data_table_routine = table_substance_routine_data(),
  id = tlfb_id(),
  v = tlfb_v(),
  last_action = "delete",
  session = session
)