shinyBS createAlert can'；行不通

createAlert

的部分不工作。谁能帮我修一下吗？感谢您的帮助

library(shiny)
library(shinyBS)

shinyUI(fluidPage(

    titlePanel("Ouais...Ouais..."),

    sidebarLayout(
        sidebarPanel(
            helpText("A new learner"),

            selectInput("var", 
                        label = "Choose a variable to display",
                        choices = c("begin", "win", "again", "give up"),
                        selected = "begin"),

            radioButtons(
                "filtre",
                label = h5("Do you like me ?"),
                choices = list("Yes" = 1, "No" = 0, "Get out" = 2),
                selected = 1),

           actionButton("initia", label = img(src="imgR.png", height = 200, width = 170) ) 

        ),

        mainPanel(
            **bsAlert("alert1"),**
            textOutput("text1"),
            textOutput("text2")
        )
    )
))

---

库（闪亮）
图书馆（shinyBS）
shinyServer（功能（输入、输出、会话）{
输出$text1您可以使用
observeEvent
来实现这一点。查看下面修改的代码：

library(shiny)
library(shinyBS)

ui <- shinyUI(fluidPage(

  titlePanel("Ouais...Ouais..."),

  sidebarLayout(
    sidebarPanel(
      helpText("A new learner"),

      selectInput("var", 
                  label = "Choose a variable to display",
                  choices = c("begin", "win", "again", "give up"),
                  selected = "begin"),

      radioButtons(
        "filtre",
        label = h5("Do you like me ?"),
        choices = list("Yes" = 1, "No" = 0, "Get out" = 2),
        selected = 1),

      actionButton("initia", label = img(src="imgR.png", height = 200, width = 170) ) 

    ),

    mainPanel(
      bsAlert("alert1"),
        textOutput("text1"),
      textOutput("text2")
    )
  )
))


server <- shinyServer(function(input, output, session) {

  output$text1 <- renderText({
    paste("You have selected", input$var)
  })

  output$text2 <- renderText({
    paste("Do you want to go ? ", input$filtre)
  })

  observeEvent(input$var,{
      popupvar <- input$var
      if(popupvar == "give up") {
        createAlert(session, "alert1", "exampleAlert", title = "Oops",
                    content = "Go on, you'll win", append = FALSE)
      } else if(popupvar == "begin") {
        createAlert(session, "alert1", "exampleAlert", title = "Oops",
                    content = "Bravo.", append = FALSE)
      } else {
        closeAlert(session, "exampleAlert")
        return("Greateful")
      }

  })


    observe({
      input$initia
      updateSelectInput(session, "var", selected = "begin")
      updateRadioButtons(session, "filtre", selected = 1 )
    }) 

})

shinyApp(ui,server)

库（闪亮）
图书馆（shinyBS）
用户界面
library(shiny)
library(shinyBS)

ui <- shinyUI(fluidPage(

  titlePanel("Ouais...Ouais..."),

  sidebarLayout(
    sidebarPanel(
      helpText("A new learner"),

      selectInput("var", 
                  label = "Choose a variable to display",
                  choices = c("begin", "win", "again", "give up"),
                  selected = "begin"),

      radioButtons(
        "filtre",
        label = h5("Do you like me ?"),
        choices = list("Yes" = 1, "No" = 0, "Get out" = 2),
        selected = 1),

      actionButton("initia", label = img(src="imgR.png", height = 200, width = 170) ) 

    ),

    mainPanel(
      bsAlert("alert1"),
        textOutput("text1"),
      textOutput("text2")
    )
  )
))


server <- shinyServer(function(input, output, session) {

  output$text1 <- renderText({
    paste("You have selected", input$var)
  })

  output$text2 <- renderText({
    paste("Do you want to go ? ", input$filtre)
  })

  observeEvent(input$var,{
      popupvar <- input$var
      if(popupvar == "give up") {
        createAlert(session, "alert1", "exampleAlert", title = "Oops",
                    content = "Go on, you'll win", append = FALSE)
      } else if(popupvar == "begin") {
        createAlert(session, "alert1", "exampleAlert", title = "Oops",
                    content = "Bravo.", append = FALSE)
      } else {
        closeAlert(session, "exampleAlert")
        return("Greateful")
      }

  })


    observe({
      input$initia
      updateSelectInput(session, "var", selected = "begin")
      updateRadioButtons(session, "filtre", selected = 1 )
    }) 

})

shinyApp(ui,server)