R блестящий: вход может быть выбран через условную панель - PullRequest
Новая
       23

R блестящий: вход может быть выбран через условную панель

0 голосов
/ 12 ноября 2018

Я хочу иметь полную условную панель над приложением, которое я создаю, чтобы действовать как заявление об отказе от ответственности. Условная панель должна покрывать весь экран, пока пользователь не примет отказ от ответственности. После этого панель условий очищается, и пользователь может использовать приложение.

В настоящее время несколько входов кажутся активными через условную панель (переключатели, а также фильтр). Когда я выбираю вещи в фильтре, приложение запускается в фоновом режиме). Я не хочу, чтобы это было возможно. Как я могу заставить условную панель покрыть весь экран, включая все входы? 

    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()

                 )
)

1 Ответ

0 голосов
/ 12 ноября 2018

Я не уверен, что понимаю ваш вопрос, но вы можете поместить свои кнопки в другую условную панель, соответствующую условию oposite: 

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"))
)

Тогда кнопки появляются только тогда, когда пользователь нажимаетбаннер.Надеюсь, это поможет!

...