Verwenden von Optionsfeldern zum Ändern einer Berechnung

Question

Ich möchte Optionsfelder (Eingabe $ relStat) verwenden, sodass für jede Option eine andere Berechnung für textOutput ausgeführt wird. Die Eingänge kommen von einem Schieberegler für basicIncome und numerisch für childNum.

ui.R

sliderInput(inputId = "basicIncome", 
       label = "Choose a monthly basic income", 
       value = 600, min = 0, max = 1200, step = 50 
), 

textOutput("annualBasicIncome"), 
) 

server.R

annualBasicIncome <- eventReactive(input$updateButton, { 
    if ("1" %in% input$relStat) 
    renderText({(input$basicIncome*12)+((input$basicIncome*12)*input$childNum)}) 

    if ("2" %in% input$relStat) 
    renderText({(2*(input$basicIncome*12))+((input$basicIncome*12)*input$childNum)}) 
}) 

output$annualBasicIncome <- renderText({ 
    annualBasicIncome() 
}) 

Ich habe versucht, die Radiobutton in einen Wert zu geben. Aber binär.

Wenn ich die erste if("1") entferne dann wird für eine RadioButton Option nichts angezeigt und für die andere bekomme ich den Fehler argument 1 (type 'closure') cannot be handled by 'cat'.

Answer 1

Versuchen:

switch(as.numeric(input$relStat), 
    return((input$basicIncome*12)+((input$basicIncome*12)*input$childNum)), 
    return((2*(input$basicIncome*12))+((input$basicIncome*12)*input$childNum)) 
) 

Das sollten Sie das gewünschte Ergebnis erhalten.