2017-12-25 22 views
1

1つの出力を別の出力で使用できるかどうかという質問がありますか?私は、その値は、任意のoutputで使用することができますreactive expressionを使用光沢のあるサーバーで1つの出力を別の出力に使用する

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 
     } 
     }) 
+0

私はこれまで同じ問題を抱えていましたが、解決できませんでした。誰も答えなければ、これは間違いなく(少なくとも私のために)価値がある奨励金です。私はこの記事を楽しみにしています。 – InfiniteFlashChess

答えて

1

私の出力$条件で使用されるように、出力の$ mysumの結果を使用したいです。例えば:聞かせている場合

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() 
}) 
+0

非常にいい、役に立つ例。 – InfiniteFlashChess

+0

@nicolaありがとうございました。それは仕事です! –

+0

@KienWei喜んで助けました。あなたが役に立つと思ったら、答えを受け入れることを検討してください。 – nicola

0

のは、私は、出力の$ mysumにおける条件因子としてこの値を使用したい、私は2015年のように入力$年度から値速度を得ると言います。それはあまりにも反応的に行うことができますか?

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