Блестящий флажок отслеживания ввода

Question

В настоящее время я работаю над формой заявки, используя Shiny. Моя главная страница будет состоять из таблицы, в которой будет кнопка нажатия, которая откроет новое модальное окно, в котором будут отображаться детали формы заявки. После нажатия кнопки сохранения данные будут сохранены в моей БД в бэкэнде. Я привел пример моего приложения с использованием mtcars.

Мой вопрос двухсторонний.

1. Я добавил флажок к строкам главной страницы и хочу отслеживать щелчок этих флажков, чтобы я мог проверить требуемые и, используя событие щелчка, сохранить другое значение в БД. Как я могу отслеживать это событие щелчка флажка?

2. Мне нужно нажать один флажок, чтобы выбрать около 150 или более флажков одновременно. Есть ли способ собрать все эти события нажатия вместе в массив или что-то еще и использовать их позже?

Вот мой код:

rm(list = ls())
library(DT)
library(shiny)
library(shinyBS)
library(shinyjs)
library(shinydashboard)

shinyInput <- function(FUN, len, id, ...) {inputs <- character(len)
for (i in seq_len(len)) {
  inputs[i] <- as.character(FUN(paste0(id, i), ...))}
inputs
}

ui <- dashboardPage(
  dashboardHeader(title = "Simple App"),
  dashboardSidebar(
    sidebarMenu(id = "tabs",
                menuItem("Menu Item 1", tabName = "one", icon = icon("dashboard"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "one",h2("Datatable Modal Popup"),
              DT::dataTableOutput('my_table'),uiOutput("popup")
      )
    )
  )
)

server <- function(input, output, session) {
  my_data <- reactive({
    testdata <- mtcars
    as.data.frame(cbind(View = shinyInput(actionButton, nrow(testdata),'button_', label = "View", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
                        Check = shinyInput(checkboxInput,label = "Check", nrow(testdata),  'box_', value = FALSE),testdata))
  })  
  output$my_table <- DT::renderDataTable(my_data(),selection = 'single',options = list(searching = FALSE,pageLength = 10),server = FALSE, escape = FALSE,rownames= FALSE)

  SelectedRow <- eventReactive(input$select_button,{
    as.numeric(strsplit(input$select_button, "_")[[1]][2])
  })

  observeEvent(input$select_button, {
    toggleModal(session, "modalExample", "open")
  })

  DataRow <- eventReactive(input$select_button,{
    my_data()[SelectedRow(),2:ncol(my_data())]
  })

  output$popup <- renderUI({
    bsModal("modalExample", paste0("Data for Row Number: ",SelectedRow()), "", size = "large",
            column(12,                   
                   DT::renderDataTable(DataRow())

            )
    )
  })

}

shinyApp(ui, server)