Question

我尝试使用DT动态预先选择闪亮的行并看到这个问题/答案：Pre-select rows of a dynamic DT in shiny 但是，我确实需要“本地人”。带有智能柱式过滤器的DT外观。

这是我的代码：

library(shiny)
library(DT)

shinyApp(
    ui=shinyUI(
        fixedPage(
            radioButtons('selectedRows',
                         'select a row',
                         c(
                         "row one"="1",
                         "row two"="2")),
            DT::dataTableOutput('myTable')
        )
    )
,

server=shinyServer(function(input, output) {

    selRows <- reactiveValues(row=c())

    observe({
        validate(need(input$selectedRows, message=FALSE)) 
        selRows$row <- as.numeric(input$selectedRows)
    })

    output$myTable <- DT::renderDataTable ({
                                             mtcars[,1:5]
                                          },server=T,
                                            rownames = T,
                                            filter = "top",
                                            selection = list(mode='multiple',
                                                             selected = selRows$row))

    })
)

谢谢！

Answer 1

它写在另一篇文章中以将其包装在datatable()中然后它可以工作：）

output$myTable <- DT::renderDataTable ({
  datatable(
    mtcars[,1:5],
    rownames = T,
    filter = "top",
    selection = list(mode='multiple',
                     selected = selRows$row)  
  )
})

使用闪亮的DT动态预选行

1 个答案: