Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/extjs/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Shiny DT表功能_Shiny_Dt - Fatal编程技术网

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)。谢谢。我修改了我的代码并进行了编辑。即使现在它也不起作用