在每个卷中添加一个selectInput并在选择之间计算时间

Question

我已经设置了一个actionButton，但我想在selectImput中添加三个选项。

每次更改选项时，我希望您在时间列中显示选项2和选项3之间的时间。

目前我无法将信息放在列中，并且时间计入总数中，而不是每行中单独计算。

 ui <- fluidPage(
 navbarPage(
 mainPanel(
  # dataTableOutput('tabela')
  DT::dataTableOutput("data"),
  textOutput('myText'),
  actionButton("At", "Click Me")
)))

server <-function(input, output, session) {
myValue <- reactiveValues(Action = '')

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

seriet<-reactiveValues(data = data.frame(
Name = c('Laurena', 'Jennifer', 'Augusto', 'Henrique', 'Zeina','Jaque'),
Grade = c(1, 2, 3, 2, 1, 3),
Time=c(0,0,0,0,0,0),
Sport=c("Nado", "Corrida","Nado", "Corrida","Nado", "Corrida"),
Actions = shinyInput(actionButton, 6, 'button_', label = "At", onclick = 
'Shiny.onInputChange(\"select_button\",  this.id)' ),
stringsAsFactors = FALSE,
row.names = 1:6#prestar atencao
))

 output$data <- DT::renderDataTable(  
seriet$data,escape = FALSE
)

observeEvent(input$select_button, {
  click <- timer()
myValue$Action <<- paste('Tempo',{print(click())*60})
 })

output$myText <- renderText({
myValue$Action
})

click <- timer()
observeEvent(input$At, {print(click())})

}
shinyApp(ui, server)