inst/hbcdtlfb/www/R/observe/delete_routine_confirmed.R

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

id_to_delete <- table_substance_routine_data()[input$table_substance_routine_rows_selected, ] |> 
  pull(Id)

table_substance_routine_data(
  table_substance_routine_data() |> filter(Id != id_to_delete)
)

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_substance",
  session = session
)