在闪亮应用程序中,取消单击DT::datatable的行时隐藏textOutput()可以通过以下步骤实现:
install.packages("shiny")
install.packages("DT")
library(shiny)
library(DT)
ui <- fluidPage(
DT::dataTableOutput("mytable"),
textOutput("mytext")
)
server <- function(input, output) {
output$mytable <- DT::renderDataTable({
# 在这里创建你的datatable
# 例如:datatable(iris)
})
output$mytext <- renderText({
# 在这里创建你的textOutput
# 例如:input$mytable_rows_selected
})
}
shinyApp(ui, server)
tags$script('
$(document).ready(function() {
var table = $("#mytable").DataTable();
$("#mytable tbody").on("click", "tr", function() {
var row = table.row(this);
if (row.child.isShown()) {
row.child.hide();
} else {
row.child(format(row.data())).show();
}
});
function format(d) {
// 在这里定义隐藏的内容
// 例如:return "Hidden content for row with data: " + d;
}
});
')
这样,当你在闪亮应用程序中单击datatable的行时,隐藏的textOutput内容将根据你的定义显示或隐藏。请注意,这只是一个示例,你需要根据你的实际情况进行适当的修改和调整。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云