1
我已經構建了一個閃亮的應用程序,允許用戶更新數據表蒙特表。 我有一些功能允許用戶通過點擊一個actionLink到已渲染的數據表中來刪除datable中的行。R閃亮的刪除按鈕到數據表中不起作用
它工作正常,但我管理一些錯誤。當所有的數據表被刪除一次,並且我放入新的條目時,第一個新條目是不可刪除的,而不先刪除另一行。
要清楚這裏是顯示錯誤步驟:
- 添加一個文本輸入,並將其添加到數據表
- 刪除輸入
- 添加一個新的文本輸入
- 嘗試刪除它
- 添加另一個文本輸入
- 刪除第二個新輸入
- 刪除第一個輸入
我不明白爲什麼,我認爲它來自反應值,但我把事件放在唯一可能出現的兩個事件上。
這裏是一個重複的例子,看看錯誤:
library(shiny)
library(DT)
library(shinydashboard)
library(shinyjs)
# ----- function which create the button into the table
shinyInput <- function(FUN, len, id, ...) {
inputs <- len
for (i in seq(len)) {
inputs[i] <- as.character(FUN(paste0(id, len[i]), ...))
}
inputs
}
# ----- character form vector
fields<-c("text")
ui<-shinyUI(bootstrapPage(
shinyjs::useShinyjs(),
title = "Update form",
fluidRow(
sidebarPanel(width=2,
title = "Submit form", id = "submitTab", value = "submitTab",
textInput("text", "Text Input", ""),
actionButton("submit", "Add", class = "btn-primary",icon=icon("table"))
# verbatimTextOutput("test")
),
mainPanel(dataTableOutput("data_table")))
))
server<-shinyServer(function(input, output) {
# ----- create the reactive value
v<-reactiveValues(data=NULL)
# ----- when Add button is clicked
observeEvent(input$submit, {
dat <- sapply(fields, function(x) input[[x]])
dat<-data.frame(t(dat),stringsAsFactors=F)
if(!(is.null(v$data)) && (input$text%in%v$data$text==F)) {
v$data <- rbind(v$data[,-2], dat)
} else if(!is.null(v$data) && (input$text%in%v$data$text==T)) {
indice<-which(v$data$text==input$text)
v$data[indice,-2] <- dat
} else {
v$data<-dat
}
v$data<-data.frame(v$data[,-2],Delete = shinyInput(actionLink, rownames(v$data), 'button_',class="btn btn-delete",icon=icon("minus-circle"),label="",onclick = 'Shiny.onInputChange(\"select_button\", this.id)'))
})
# ----- When Delete table button is clicked
observeEvent(input$select_button, {
# dat<-v$data
selectedRow <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
# dat <- dat[rownames(dat) != selectedRow, ]
v$data<-v$data[rownames(v$data)!=selectedRow,]
v$data<-data.frame(v$data[,-2],Delete = shinyInput(actionLink, rownames(v$data), 'button_',class="btn btn-delete",icon=icon("minus-circle"),label="",onclick = 'Shiny.onInputChange(\"select_button\", this.id)'))
})
# ----- Render the data table
output$data_table <- renderDataTable(server = TRUE,escape=F,extensions = 'TableTools',options = list(pageLength = 10),{
if (is.null(v$data)) return()
v$data
})
})
shinyApp(ui,server)
它看起來有點棘手,但它的工作原理! 不真的明白爲什麼。這是由於時間流程問題? –
謝謝@Victorp! –
第一次點擊刪除按鈕'輸入$ select_button'從'NULL'傳遞給'button_1',第二次從 'button_1'傳遞到'button_1',所以沒有更改和'observeEvent'沒有被觸發。 – Victorp