Добавление selectInput в каждом броске и отсчет времени между выбором - PullRequest
Новая
       6

Добавление selectInput в каждом броске и отсчет времени между выбором

0 голосов
/ 25 мая 2018

Я поместил actionButton, но я бы хотел добавить selectImput с тремя опциями.

При каждом изменении опции я хотел бы, чтобы вы отображали в столбце Time время между опцией 2 и option3.

В настоящее время я не могу поместить информацию в столбец, и время в сумме подсчитывается отдельно, а не в каждой строке. 

 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)
...