Shiny DT表功能
不知道为什么会这样。有人能帮我吗?当应用程序打开时(默认情况下),单击箭头(第二行中的小箭头),会弹出模式框(这很好)。但当选择其他日期(今天除外)时,数据会更改。但现在,如果单击小箭头,则不会弹出模式框。不知道为什么?有人能帮我吗Shiny DT表功能,shiny,dt,Shiny,Dt,不知道为什么会这样。有人能帮我吗?当应用程序打开时(默认情况下),单击箭头(第二行中的小箭头),会弹出模式框(这很好)。但当选择其他日期(今天除外)时,数据会更改。但现在,如果单击小箭头,则不会弹出模式框。不知道为什么?有人能帮我吗 library(shiny) library(shinydashboard) library(DT) number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE))) sideb
library(shiny)
library(shinydashboard)
library(DT)
number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))
sidebar <- dashboardSidebar()
body <- dashboardBody(
fluidRow(box(width = 12, solidHeader = TRUE,
DTOutput("example_table"),
# actionButton("sam","sam"),
dateInput("da","Date", value = Sys.Date(), min = Sys.Date()-1, max = Sys.Date()+1))
)
)
ui <- dashboardPage(dashboardHeader(title = "Example"),
sidebar,
body
)
server <- function(input, output) {
number_compare$X2[which(rownames(number_compare) == 2)] = paste(with(number_compare, X2[rownames(number_compare) == 2])," ", " ",as.character(actionLink(inputId="ang", label="", icon("caret-up"))))
output$example_table <- DT::renderDT({
if(input$da == Sys.Date())
{
datatable(
number_compare[c(2,3:4),],
escape = FALSE
,options=list(preDrawCallback=JS(
'function() {
Shiny.unbindAll(this.api().table().node());}'),
drawCallback= JS(
'function(settings) {
Shiny.bindAll(this.api().table().node());}')))
} else {
datatable(
number_compare[c(2,5:6),],
escape = FALSE
,options=list(preDrawCallback=JS(
'function() {
Shiny.unbindAll(this.api().table().node());}'),
drawCallback= JS(
'function(settings) {
Shiny.bindAll(this.api().table().node());}')))
}
})
observeEvent(input$ang,{
if(!is.null(input$da))
{
print("clicked")
showModal(modalDialog(
title = "dsd"
))
}
})
}
shinyApp(ui, server)
库(闪亮)
图书馆(shinydashboard)
图书馆(DT)
数字\u比较两个不同的ActionLink具有相同的ID。它们需要不同。然后,第二个日期也会弹出对话框(带有另一个observeEvent)。谢谢。我修改了我的代码并进行了编辑。即使现在它也不起作用