1

我只需要在按下按钮并且满足变量条件时显示 BS 模态。

这是一个简单的应用程序，展示了挑战是什么。我需要在触发时显示 BS 模态num_rows >= 500，并且触发提交按钮，而不仅仅是触发提交按钮时。

我知道这可以通过conditionalPanel使用input.slider作为条件之一来完成，但在我的实际项目中它比这复杂得多，并且 BS 模态/条件面板需要同时依赖于按钮（用户输入）和变量分配在server.

library(shiny)
library(shinyBS)

data = matrix(rnorm(1000*10, 0, 1), nrow = 1000)

ui <- fluidPage(
  fluidRow(
    column(width = 4,
           sliderInput("slider", "Choose Number of Rows to Display", 0, 1000, value = NULL),
           submitButton('Submit'),
           bsModal("modalExample", "Yes/No", "submit", size = "small", wellPanel(
             p(div(HTML("<strong>Warning: </strong> you have chosen to display a large
                        number of rows. Are you sure you want to proceed?"))),
             actionButton("no_button", "Yes"),
             actionButton("yes_button", "No")
             ))
    ),
    column(width = 8,
           tableOutput('data')
    )
  )
)

server <- shinyServer(function(input, output, server){
  observe({
    num_rows <- input$slider

    if(num_rows >= 500){
      #
      # ACTIVATE MODAL PANEL
      #
      observeEvent(input$no_button, {
        # Do not show table
      })
      observeEvent(input$yes_button, {
        output$table <- renderTable(data)
      })
    } else{  # Display table normally if number of rows is less than 500
      output$table <- renderTable(data)
    }
  })

})


shinyApp(ui, server)
4

1 回答 1

2

看看下面的代码。num_rows<500如果使用包 shinyjs，我禁用了操作按钮。如果num_rows>=500操作按钮变为可触发弹出窗口。要更新使用滑块选择的行数，您必须每次都按下提交按钮。希望这对您有所帮助或得到一些想法。现在我还没有实现你的警告信息（这对我不起作用）。另一个问题：弹出窗口的滑块和显示仅适用于增加行数，之后不会减少。如果您找到解决方案，请分享=）

library(shiny)
library(shinyBS)
library(shinyjs)

data = matrix(rnorm(1000*10, 0, 1), nrow = 1000)

data1=data[(1:500),]
head(data)
ui <- fluidPage(
  fluidRow(
    column(width = 4,
           sliderInput("slider", "Choose Number of Rows to Display", 0, 1000, value = NULL),
           submitButton('Submit'),
           actionButton('Show','Show'),
           useShinyjs(),
           bsModal("modalExample",'Yes/No','Show', size = "large",tableOutput("tab")
#                    wellPanel(
#              p(div(HTML("<strong>Warning: </strong> you have chosen to display a large
#                         number of rows. Are you sure you want to proceed?")
#                    )))
               )),
    column(width = 8,tableOutput('table'))))

server <- function(input, output)({
observe({
  num_rows = input$slider 

 if(num_rows<500 &num_rows!=0) {
   shinyjs::disable('Show')
 output$table <- renderTable({
   data = data1[(1:num_rows),]
   print(head(data1))
    data})
 }else{
   shinyjs::enable('Show')
 output$tab = renderTable({
     data = data[(1:num_rows),]
     data}) }

 })
})

shinyApp(ui, server)
于 2017-04-14T09:17:49.683 回答