我有一个闪亮的应用程序,可以在 DT 表中显示数据帧数据。在应用程序中,我有一个按钮,单击该按钮将删除所选行。当我第一次选择行并单击删除按钮时,它会起作用,但再次单击后,错误的行将被删除,并且任何以前删除的行都会重新出现。我假设这是因为当我调用时它会重新加载数据框(来自 csv)DT::renderDataTable()
.
从数据框中删除选定的行后如何重新渲染表格?
这可以帮助您开始:
ui.R
library(shiny)
library(DT)
shinyUI(fluidPage(
titlePanel("Delete rows with DT"),
sidebarLayout(
sidebarPanel(
actionButton("deleteRows", "Delete Rows")
),
mainPanel(
dataTableOutput("table1")
)
)
))
server.R
library(shiny)
library(DT)
library(dplyr)
df <- data.frame(x = 1:10, y = letters[1:10])
shinyServer(function(input, output) {
values <- reactiveValues(dfWorking = df)
observeEvent(input$deleteRows,{
if (!is.null(input$table1_rows_selected)) {
values$dfWorking <- values$dfWorking[-as.numeric(input$table1_rows_selected),]
}
})
output$table1 <- renderDataTable({
values$dfWorking
})
})
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)