在侧边栏中显示闪亮的通知

Question

在下面的示例中，'Selections Saved' 通知显示在应用程序的右下角。相反，我希望它出现在边栏中（直接在操作按钮下方，或者只是在边栏的左下角）：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    actionButton("apply", "Save Selections")
  ),
  dashboardBody()
)

server <- function(input, output) { 
  observeEvent(input$apply, {
    showNotification("Selections Saved", duration = 2)
  })
}

shinyApp(ui, server)

我知道已经有，但这些会导致通知显示在屏幕中间，而不是边栏中。

Answer 1

您是否尝试过只更改百分比？

# bottom-left
custom_notes <- HTML(
  "
  .shiny-notification {
    position: fixed;
    top: calc(0%);
    left: calc(100%);
  }
  "
)

然后他们将 tags$head(tags$style(custom_notes)) 放在 ui 内，在仪表板元素之前？

在侧边栏中显示闪亮的通知

Show shiny notification in sidebar

r

shiny