ラジオボタンを使用して計算を変更する

Question

ラジオボタン（input $ relStat）を使用して、各オプションがtextOutputの異なる計算を実行するようにします。入力はbasicIncomeのスライダーから、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() 
}) 

私は値にラジオボタンを与えることを試みました。しかしバイナリ。

最初のif("1")を削除した場合、1つのラジオボタンオプションでは何も表示されず、もう1つはエラーargument 1 (type 'closure') cannot be handled by 'cat'が表示されます。

Answer 1

試してみてください。

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

あなたが望む結果を得る必要があります。