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")

       }

photo of the check boxes

我希望有人可以帮助我解决这个简单的问题。谢谢

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

单击多个复选框在Shiny中输入

1 个答案: