Блестящий проход для реактивной функции

Question

Я хотел бы передать входной сигнал реактивной функции в Shiny. По сути, это не нужно определять функцию дважды. Я хотел бы сделать что-то вид:

lUpper1 <- fSelectUpperDist(1) 
lUpper2 <- fSelectUpperDist(2) 

где «1» и «2» соответствуют входам, и есть логика в реактивной функции вида:

SelectUpperDist <- reactive({ 
    aSelection <- ifelse(x==1,input$upperDist1,input$upperDist2) 
    'Do something' 
    return(aResult) 
}) 

Does кто-нибудь знает, как я могу это сделать?

Бест, Бен

Answer 1

Вы можете попробовать использовать reactive для определения lUpper1 и lUpper2 в качестве реакционноспособных выражения:

lUpper1 <- reactive({fSelectUpperDist(1)}) 
lUpper2 <- reactive({fSelectUpperDist(2)}) 

Когда вам нужно значение, вы можете позвонить lUpper1 или lUpper2

aSelection <- ifelse(x==1,lUpper1(),lUpper2())