我想在启动时 Select DataTable的第一行.我计划使用这段JS代码,但不确定它是否正确:
dataTable.row(':eq(0)').select();
使用回调
它不起作用:
library(shiny)
library(DT)
js <- c(
"table.on('initComplete', function(settings, json) {",
" this.row(':eq(0)').select();",
" }",
"});"
)
ui <- fluidPage(
DTOutput("table")
)
server <- function(input, output, session) {
output$table <- renderDT({
datatable(
mtcars,
callback = JS(js)
)
})
}
shinyApp(ui, server, options = list(
launch.browser = TRUE
))
在运行中访问表格
但我不知道如何在我shiny 的应用程序中找到变量名:
library(shiny)
library(shinyjs)
library(DT)
ui <- fluidPage(
useShinyjs(),
DTOutput("table")
)
server <- function(input, output, session) {
output$table <- renderDT({
datatable(
mtcars
)
})
### I need to know the `dataTableVariable`
runjs("dataTableVariable.row(':eq(0)').select();")
}
shinyApp(ui, server, options = list(
launch.browser = TRUE
))