Щелчок по пункту меню не срабатывает в R Shiny Dashboard - PullRequest
Новая
       6

Щелчок по пункту меню не срабатывает в R Shiny Dashboard

0 голосов
/ 03 января 2019

Я строю R Shiny Dashboard. Я построил часть кода пользовательского интерфейса. Теперь я хочу добавить содержимое пункта меню, которое должно динамически отображаться справа. Я применил наблюдение за вкладкой. Но он не работает должным образом, как показано ниже:

Код: 

library(shiny)
library(shinythemes)


#UI client..............................

ui <- fluidPage(
  tags$style(HTML("
              h4 {
              color: white;
              padding-top: 5px;
              font-weight: bold;
              }
              .content-wrapper{
              overflow:auto;
              width:150%;
              }

              "
)
),
dashboardPage(

  dashboardHeader(title="Title",
                tags$li(h4("Welcome User!"),
                        class = "dropdown",
                        dropdownMenu(type = "messages",
                                     messageItem(
                                       from = "Logout",
                                       message = "Session Ends"
                                     ))

                )),
## Sidebar content

dashboardSidebar(
  sidebarMenu(
    menuItem("OverView", tabName = "Sitecontent", icon = icon("th")),
    menuItem("Candidate Information", tabName = "CandidateInformation", icon = icon("th")),
    menuItem("Assesment", tabName = "Assesment", icon = icon("th"),

             menuItem('Affect',
                      tabName = 'Affect',
                      icon = icon('th'))
    )
  )
),
dashboardBody(
  tabItems(
    # OverView tab  content
    tabItem(tabName = "OverView",
            h2("OverView ")

    ),

    # Assesment tab content
    tabItem(tabName = "Assesment",
            h2("Assesment ")


    ),

    # Predictive Result tab content
    tabItem(tabName = "PredictAny",
            h2("PredictAny")

    ),

    # PreventiveResults tab content
    tabItem(tabName = "PreventiveResults",
            h2("PreventiveResults")
    ),
    tabItem(tabName = "Affect",
            h2("Assesment on Affect")
    )
  )
 )
 )
)

 server <- function(input, output,session) { 
   observeEvent(input$Affect, {  #Not triggering
     sendSweetAlert(
        session = session,
        title = "Done!",
        text = "Affect Triggered.",
        type = "success"
      )
  })


  }
  shinyApp(ui, server)

Я не могу нажать observeEvent(input$Affect,. Не уверен, что я делаю не так здесь .. пожалуйста, помогите мне в этом.

1 Ответ

0 голосов
/ 03 января 2019

Попробуйте это: 

library(shiny)
library(shinythemes)
library(shinydashboard)

#UI client..............................

ui <- fluidPage(
  tags$style(HTML("
                  h4 {
                  color: white;
                  padding-top: 5px;
                  font-weight: bold;
                  }
                  .content-wrapper{
                  overflow:auto;
                  width:150%;
                  }

                  "
  )
  ),
  dashboardPage(

    dashboardHeader(title="OPTUM",
                    tags$li(h4("Welcome User!"),
                            class = "dropdown",
                            dropdownMenu(type = "messages",
                                         messageItem(
                                           from = "Logout",
                                           message = "Session Ends"
                                         ))

                    )),
    ## Sidebar content

    dashboardSidebar(
      sidebarMenu(id = "tabs",
                  menuItem("OverView", tabName = "Sitecontent", icon = icon("th")),
                  menuItem("Candidate Information", tabName = "CandidateInformation", icon = icon("th")),
                  menuItem("Assesment", tabName = "Assesment", icon = icon("th"),

                           menuItem('Affect',
                                    tabName = 'AffectTab',
                                    icon = icon('th'))
                  )
      )
    ),
    dashboardBody(
      tabItems(
        # OverView tab  content
        tabItem(tabName = "OverView",
                h2("OverView ")

        ),

        # Assesment tab content
        tabItem(tabName = "Assesment",
                h2("Assesment ")


        ),

        # Predictive Result tab content
        tabItem(tabName = "PredictAny",
                h2("PredictAny")

        ),

        # PreventiveResults tab content
        tabItem(tabName = "PreventiveResults",
                h2("PreventiveResults")
        ),
        tabItem(tabName = "AffectTab",
                h2("Assesment on Affect")
        )
      )
    )
  )
  )

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

  observeEvent(input$tabs, {  #Not triggering
    print(input$tabs)
    if(input$tabs=="AffectTab"){
      sendSweetAlert(
        session = session,
        title = "Done!",
        text = "Affect Triggered.",
        type = "success"
      )
    }
  })
}
shinyApp(ui, server)
...