inst/hbcdtlfb/www/R/observe/delete_routine_modal.R

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

showModal(
  if(length(input$table_substance_routine_rows_selected) == 1) {
    modalDialog(
      title = "Warning",
      "Are you sure that you want to delete this record?",
      footer = tagList(
        modalButton("Cancel"),
        actionButton("delete_routine_confirmed", "Yes")
      ), 
      easyClose = TRUE)
  } else
  {
    modalDialog(
      title = "Warning",
      "Select a row that you want to delete", 
      easyClose = TRUE
    )
  }
)