單擊多個復選框

Question

我正在使用2個平滑器進行繪圖。 我為用戶提供了選擇兩個復選框的選項，每個復選框更平滑。 我的問題是，一個復選框取消了另一個復選框，因此用戶無法同時在繪圖上同時查看這兩個復選框。

此問題可能是由於我編寫if條件的方式引起的。

這是我的#ui的一部分

 checkboxInput(inputId = "loose",
                  label = strong("loose smoother"),
                  value = FALSE),

    checkboxInput(inputId = "lm",
                  label = strong("lm smoother"),
                  value = FALSE)

這是#server

{
    if (input$loose) {
     b+geom_smooth(method="loess", size=1, color="black")
    } 
     else if (input$lm) {
      b+geom_smooth(method="lm", size=1, color="blue")

       }

復選框的照片

我希望有人可以幫助我解決這個簡單的問題。 謝謝，

Answer 1

您可以嘗試：

if (input$loose) {
 b <- b + geom_smooth(method="loess", size=1, color="black")
} 

if (input$lm) {
   b <- b + geom_smooth(method="lm", size=1, color="blue")
}
b