Question

我怀疑一个输出是否可用于另一个输出？我希望在输出$ condition

中使用输出$ mysum的结果

 output$condition= renderText({
        if (output$mysum <20) {
          print("The sum of the time is less than 20")

        }
      })

      output$mysum <- renderText({

      x=input$number
      x=x+1
        }
      })

Answer 1

使用可在任何output中使用其值的reactive expression。例如：

sumone <- reactive({
  input$number+1
})
output$condition <- renderText({
   if (sumone() < 20) {
     print("The sum of the time is less than 20")
   }
})
output$mysum <- renderText({
   sumone()
})

Answer 2

如果让我说我从2015年的输入$ year获得了一个值，那么我想把这个值用作输出$ mysum的条件因子。它可以用反应来完成吗？

output$condition <- renderText({
 if(input$year==2015){
 speed=as.numeric(sqldf("select ave_speed from newdataset where [month]=12 
 AND [day]=30 AND [regionid]=16"))
        }

   }
})
output$mysum <- renderText({
    if(speed<30){
  month=as.numeric(sqldf("select month from newdataset where [month]=12 AND 
  [day]=30 AND [regionid]=16"))
     }
})

闪亮服务器中的一个输出将在另一个输出

2 个答案: