首页 > 解决方案 > R闪亮:可以通过条件面板选择输入

问题描述

我想在我正在构建的应用程序上设置一个完整的条件面板,以作为免责声明。条件面板需要覆盖全屏,直到用户接受免责声明。之后,条件面板清除,用户可以使用该应用程序。

目前,通过条件面板(单选按钮和过滤器)似乎可以点击多个输入。当我在过滤器中选择内容时,应用程序在后台运行)。我不希望这成为可能。我怎样才能让条件面板覆盖整个屏幕,包括所有输入?

    conditionalPanel(condition = 'input.disclaimerweg == ""',
                 absolutePanel(id = "disclaimer", class = "panel panel-default", fixed = TRUE,
                               draggable = FALSE, top = 41, left = 0, right = 0, bottom =  0,
                               width = "auto", height = "auto",
                               br(),
                               #actionButton("demoversie", "Demoversie"),
                               br(),
                               h1("Disclaimer!"),
                               actionButton("disclaimerweg", "Akkoord"),
                               br(),
                               br()

                 )
)

标签: rinputshinyconditional

解决方案


我不确定我是否理解您的问题,但您可以将按钮放在其他满足相反条件的条件面板中:

conditionalPanel(condition = 'input.disclaimerweg == ""',
             absolutePanel(id = "disclaimer", class = "panel panel-default", fixed = TRUE,
                           draggable = FALSE, top = 41, left = 0, right = 0, bottom =  0,
                           width = "auto", height = "auto",
                           br(),
                           #actionButton("demoversie", "Demoversie"),
                           br(),
                           h1("Disclaimer!"),
                           actionButton("disclaimerweg", "Akkoord"),
                           br(),
                           br()

             )
)

  conditionalPanel(condition = 'input.disclaimerweg != ""',
  # Input: Select a file ----
  fileInput("fileUploaded", "Choose CSV File",
            multiple = FALSE,
            accept = c("text/csv",
                       "text/comma-separated-values,text/plain",
                       ".csv"))
)

然后按钮仅在用户单击横幅时出现。希望能帮助到你!


推荐阅读