R shiny:可以通过条件面板选择输入
R shiny: input can be selected through conditional panel
我想在我正在构建的应用程序上有一个完整的条件面板,以用作免责声明。条件面板需要覆盖整个屏幕,直到用户接受免责声明。之后,条件面板将被清除,用户可以使用该应用程序。
目前,多个输入似乎可以通过条件面板(单选按钮和过滤器)点击。当我 select 过滤器中的东西时,应用程序在后台运行)。我不希望这成为可能。如何让条件面板覆盖整个屏幕,包括所有输入?
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 == ""',
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"))
)
然后按钮仅在用户单击横幅时出现。希望对您有所帮助!
我想在我正在构建的应用程序上有一个完整的条件面板,以用作免责声明。条件面板需要覆盖整个屏幕,直到用户接受免责声明。之后,条件面板将被清除,用户可以使用该应用程序。
目前,多个输入似乎可以通过条件面板(单选按钮和过滤器)点击。当我 select 过滤器中的东西时,应用程序在后台运行)。我不希望这成为可能。如何让条件面板覆盖整个屏幕,包括所有输入?
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 == ""',
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"))
)
然后按钮仅在用户单击横幅时出现。希望对您有所帮助!