Показать блестящее уведомление на боковой панели

В приведенном ниже примере уведомление «Выборки сохранены» появляется в правом нижнем углу приложения. Вместо этого я хотел бы, чтобы он отображался на боковой панели (либо непосредственно под кнопкой действия, либо просто в левом нижнем углу боковой панели):

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

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