Могу ли я передать reactiveValues условие conditionalPanel? Если да, то как?
Вот что я пробовал в conditionalPanel ui.R:
conditionalPanel(condition = "values.cond == 0", etc.
где я определил values$cond в server.R:
values <- reactiveValues(cond = 0)
Я также пробовал альтернативы, такие как "values.cond == true", без успеха.
library("shiny")
runGist("https://gist.github.com/anonymous/8281021")
Смотрите код:
Как отметил @jdharrison, у вас возникла проблема: у вас есть реактивный values или любые другие данные на стороне сервера, а условная панель - это условие JS + некоторый HTML на стороне клиента. Следовательно, если вы хотите динамически обновлять условие JS в соответствии с некоторым значением, вы рассчитали на стороне сервера, вам нужно получить данные с сервера на клиент. Я думаю, что вы можете сделать, это использовать еще недокументированную функцию блестящего для передачи пользовательских данных с сервера клиенту. Я написал сообщение в блоге о том, как это сделать: http://ryouready.wordpress.com/2013/11/20/sending-data-from-client-to-server-and-back-using-shiny/
Я думаю, вы могли бы использовать этот подход для динамического обновления состояния панели JS. Вам нужно будет написать JS-функцию, которая сделает это после передачи данных. Таким образом, это сводится к замене атрибута data-display-if вывода conditionalPanel на нужные значения.
Еще одна идея. Если ваш пользовательский интерфейс сильно зависит от вычислений на стороне сервера, вы можете захотеть динамически создать создание (боковой панели) контента с помощью renderUI.
EDIT: Кстати, это то, о чем упоминал @jdharrison в своем втором комментарии.
Вы также можете сделать это, предоставив текст. Пользовательский интерфейс:
shinyUI(
fluidPage(
# Application title
titlePanel("Test"),
sidebarLayout(
sidebarPanel(
actionButton("ShowCond", "Show Conditional Panel"),
conditionalPanel(
condition = "output.test=='5'",
actionButton("CheckFile", "Check file")
)
),
mainPanel(
verbatimTextOutput("test")
)
)
)
)
Сервер:
shinyServer(function(input, output, session) {
var <- eventReactive(input$ShowCond, {
5
})
output$test <- renderText({
var()
})
})
Улов здесь, что он не работает без verbatimTextOutput. Вам нужно включить его где-нибудь на стороне вашего интерфейса. Однако вы можете повторно использовать его в качестве сообщения.
Это также возможно без дословного текста. По умолчанию Shiny приостанавливает вывод, если он не отображается. Однако это можно изменить, установив следующий параметр для конкретной выходной переменной:
outputOptions(output, "test", suspendWhenHidden=FALSE)
В этом случае нет необходимости использовать verbatimtext (и соответствующий rendertext).