मेरे पास कॉलम में से प्रत्येक सेल के लिए ड्रॉपडाउन (चयन इनपुट) के साथ एक साधारण तालिका है। जब भी "गो" बटन पर क्लिक किया जाता है तो इनमें से प्रत्येक ड्रॉपडाउन को अपडेट किया जाना चाहिए। दुर्भाग्य से केवल पहला अपडेट किया गया है। जहां तक ​​​​मुझे समझ में आया, मुद्दा यह है कि पहला "अपडेट सिलेक्ट इनपुट" तुरंत आउटपुट टेबल के प्रतिपादन को ट्रिगर करता है। इसे काम करने के लिए मुझे कोड में क्या बदलना होगा? किसी भी सुझाव की अत्यधिक सराहना की जाती है!

library(shiny)
library(DT)

ui <- fluidPage(
  title = 'Updateable Selectinput column in a table',
  h3("Source:", tags$a("Yihui Xie", href = "https://yihui.shinyapps.io/DT-radio/")),
  shiny::actionButton(inputId = "btn", label = "Go"),
  DT::dataTableOutput('foo'),
  verbatimTextOutput('sel')
)

server <- function(input, output, session) {
  data <- head(iris, 5)

  for (i in 1:nrow(data)) {
    data$species_selector[i] <- as.character(selectInput(paste0("sel", i), "", choices = unique(iris$Species), width = "100px"))
  }

 
  observeEvent(input[["btn"]], {
    for (i in 1:nrow(data)){
      updateSelectInput(session = session, inputId = paste0("sel", i), label = "", choices = 1:nrow(data))
    }
  })

  output$foo = DT::renderDataTable(data,
                                   escape = FALSE,
                                   ## selection = 'none',
                                   server = FALSE,
                                   options = list(dom = 't', paging = FALSE, ordering = FALSE),
                                   callback = JS("table.rows().every(function(i, tab, row) {
                  var $this = $(this.node());
                  $this.attr('id', this.data()[0]);
                  $this.addClass('shiny-input-container');
});
                  Shiny.unbindAll(table.table().node());
                  Shiny.bindAll(table.table().node());")
  )
  output$sel = renderPrint({
  input[["btn"]]
    str(sapply(1:nrow(data), function(i) input[[paste0("sel", i)]]))
  })
  }

shinyApp(ui, server)
2
cSquared 3 अगस्त 2020, 11:10

1 उत्तर

सबसे बढ़िया उत्तर

मुझे समझ नहीं आ रहा है कि क्या हो रहा है, लेकिन यह label = NULL के साथ काम करता है:

updateSelectInput(session = session, inputId = paste0("sel", i), label = NULL, choices = 1:nrow(data))
1
Stéphane Laurent 3 अगस्त 2020, 09:28