Как разместить уведомление относительно боковой панели?

Question

Как разместить уведомление относительно sidebarPanel?Моя цель - выровнять оба элемента сверху и установить горизонтальное пространство между ними, скажем, 100 пикселей.То, что я делаю сейчас, это жестко запрограммировал позицию уведомления:

library(shiny)

ui <- tagList(
  tags$head(tags$style(HTML(".shiny-notification {position:fixed;top:calc(10%);left:calc(35%);}"))),
  navbarPage(
    title = "some title",
    sidebarLayout(
      sidebarPanel(
        selectInput(
          inputId = "some_id", 
          label = HTML("Some label", 
                       as.character(actionLink(inputId = 'action_link', label = 'Click me'))),
          choices = c("choice A", "choice B"),
          selected = "choice A",
          selectize = F
        )

      ), # sidebarPanel

      mainPanel()

    ) # sidebarLayout
  ) # navbarPage
) # tagList

server <- function(input, output) {
  observeEvent(input$action_link, {
    showNotification("Test", duration = NULL, type = "message")
  })
}

shinyApp(ui, server)