щелкнув несколько флажок Input в Shiny

Question

Я работаю над сюжетом с двумя сглаживателями.Я дал пользователю возможность установить два флажка, по одному для каждого сглаживателя.Моя проблема в том, что один флажок отменяет другой, поэтому пользователь не может одновременно просматривать оба сглаживания на графике.

эта проблема может быть вызвана тем, как я написал условие if.

это часть моего # ui

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

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

это # ​​сервер

{
    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