Question

我真正想要做的是传递数字输出条件以生成条件面板。我似乎无法将输出呈现为数字。

我的工作是使用感兴趣的数字条件生成反应，并将其作为文本传递给条件面板。但是，我也在努力解决这个问题。

以下是一个例子：

目标是每当用户输入乘以5的数字大于100时打开条件面板是的 - 我知道我可以通过设置输入$ number＆gt; 20来完成此操作这是我正在研究的一个简化示例。问题是使用数字OUTPUT作为条件面板

谢谢！

萨姆

library(shiny)

shinyApp(
  ui = fluidPage(
    fluidRow(
            wellPanel(
              numericInput("number", label = "Choose a Number between -100 and 100", 
                           min = -100, max = 100, value = 0))),
    fluidRow(wellPanel(textOutput("text_out"))),
    fluidRow(conditionalPanel(
      condition = "output.big == '1' ", 
      fluidRow(h1("You've selected a number larger than 20!"))))),
  server = function(input, output, session){
    # I want to execute a function on a numeric input
    times_5<-reactive({ 
      input$number*5
      })   
    # I can't get the condition to work with a numeric query
    # So, I run the query on the server side and generate an if/else statement 
    # to pass a text variable
    over_100<-reactive({
      if(times_5()>100){
        return(1)
      } else{
        return(0)
      }
    })

    output$text_out<-renderText({
       paste("This is text out put of the number ", input$number, "multiplied by 5 to equal ", times_5(), over_100())
    })
    # I can't find a render function that generates numeric output
    # Even still this outputtext doesn't seem to work in the conditional statement.
    output$big<-renderText({
      over_100
    })
  }
)

Answer 1

起初似乎Shiny needs to have the value displayed在条件中使用它，但事实并非如此：

outputOptions(output, 'big', suspendWhenHidden=FALSE)

你会告诉Shiny在不可见的时候考虑这个值。

即使您在服务器功能中添加此行，也需要进行其他更改：需要计算大值，所以：

output$big<-renderText({
  over_100
})

必须成为这个：

output$big<-renderText(over_100())

希望这可以帮到你。

数值输出值作为conditionalPanel的条件

1 个答案: