R Shiny - 在 Reactive 内部使用 eventReactive output

Question

如果单击变基按钮（输入$变基），我正在尝试变基。 如果它没有被点击，那么我希望代码继续 value_new 只是价值。 但如果它被点击，那么我想使用来自 rebasesomething 的 output 即，我希望 value_new 为 value * 0.5。

我怎样才能做到这一点？ 我尝试了 ifexists 以查看 function 是否具有 output （即，如果已单击按钮并且某些 output 似乎不起作用），但似乎不起作用。 关于如何做到这一点的任何其他想法？

很抱歉没有给出一个可行的例子，但是代码很大，只是希望有人能指导我正确的方向。

reactive({
     value <- input$value

     value_new<-value

     ifexists(rebasesomething()){value_new<-value*rebasesomething()}
 
#do a whole bunch of other things with value_new
})


rebasesomething <- eventReactive(input$rebase,{
      
      temp<-0.5
      temp
    })

Answer 1

找到解决方案，可以使用 if(input$rebase) 来判断按钮是否被点击：

if (input$rebase){
      
      value_new<-value*rebaselist()
      
    }
    else {
      value_new<-value
      
    }