![](/img/trans.png)
[英]Hide textOutput() when un-click row of a DT::datatable in shiny app
[英]DT datatable row is not highlighted when using custom callback in a shiny app
我正在遵循此示例 , 该示例说明如何从被单击的行中获取元素。 除不突出显示所选行外,此方法工作正常。 这是代码:
library(DT)
library(shiny)
runApp(shinyApp(
ui = fluidPage(DT::dataTableOutput('tab'), verbatimTextOutput('row')),
server = function(input, output) {
output$tab = DT::renderDataTable({
datatable(iris, selection = 'single',
callback = JS("table.on('click.dt', 'tr',
function() {
$(this).toggleClass('selected');
Shiny.onInputChange('row', table.rows('.selected').data().toArray());
});")
)
})
output$row = renderText({input$row})
}
))
为什么在DT input$..._rows_selected
不存在? 喜欢
library(shiny)
library(DT)
runApp(shinyApp(
ui = fluidPage(DT::dataTableOutput('tab'), verbatimTextOutput('row')),
server = function(input, output) {
output$tab = DT::renderDataTable({
datatable(iris, selection = "single"
)
})
output$row = renderText({if(length(input$tab_rows_selected)>0) paste(input$tab_rows_selected,as.character(iris[input$tab_rows_selected,]))})
}
))
例如,你有dunamic数据
dt1=reactive({
return(iris[iris$Species %in% c("setosa","versicolor"),])})
可能还有其他任何数据操作
比你的代码
runApp(shinyApp(
ui = fluidPage(DT::dataTableOutput('tab'), verbatimTextOutput('row')),
server = function(input, output) {
dt1=reactive({
return(iris[iris$Species %in% c("setosa","versicolor"),])})
output$tab = DT::renderDataTable({
datatable(dt1(), selection = "single"
)
})
output$row = renderText({if(length(input$tab_rows_selected)>0) paste(input$tab_rows_selected,as.character(dt1()[input$tab_rows_selected,]))})
}
))
我的DT
版本0.1.45
不知道为什么,但我认为$(this).toggleClass('selected');
删除选择的添加到标准DT包中的类( toggleClass
使用了两次,您什么也看不到)。
尝试
JS("table.on('click.dt', 'tr',
function() {
Shiny.onInputChange('row', table.rows(this).data().toArray());
});")
或者设置selection='none'
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.