0
我需要將單選按鈕添加到DT數據表的某一列,並且選擇單選按鈕時需要使用按鈕彈出。我能夠使用操作按鈕完成相同的操作,尋找使用單選按鈕實現相同操作的方法。代碼操作按鈕:將單選按鈕添加到R數據表中的閃亮
library(shiny)
library(DT)
library(shinyBS)
shinyApp(
ui <- fluidPage(
actionButton("Refresh","Refresh"),
br(),
br(),
DT::dataTableOutput("table"),uiOutput("popup")
),
server <- function(input, output,session) {
shinyInput <- function(FUN, len, id, ...) {
inputs <- character(len)
for (i in seq_len(len)) {
inputs[i] <- as.character(FUN(paste0(id, i), ...))
}
inputs
}
df <- reactiveValues(data = data.frame(
cbind(Delete = shinyInput(actionButton,nrow(mtcars),'button_', label = " ",onclick = 'Shiny.onInputChange(\"select_button\", this.id)'),
mtcars)
))
output$table <- DT::renderDataTable(
df$data, server = FALSE, escape = FALSE, selection = 'none'
)
observeEvent(input$select_button, {
toggleModal(session, "modalExample", "open")
})
SelectedRow <- eventReactive(input$select_button,{
as.numeric(strsplit(input$select_button, "_")[[1]][2])
})
output$popup <- renderUI({
bsModal("modalExample", "Do you want to delete the row?", "", size = "large",
actionButton("Delete","Delete")
)
})
observeEvent(input$Refresh,{
mtcars <<- retrieveValues()
df$data <- data.frame(
cbind(Delete = shinyInput(actionButton,nrow(mtcars),'button_', label = HTML('<input type="radio" name="radio" value="1"/>'),onclick = 'Shiny.onInputChange(\"select_button\", this.id)'),
mtcars)
)
})
}
)