R Shiny: прикрепить поле вывода текста к нижней части экрана

Question

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

1. Он будет всплывать sh, и цвет шрифта также будет меняться, когда он мигает
2. Поле похоже на панель инструментов (как в чате на Facebook), которая всегда находится внизу экран (закрепите снизу на всю ширину), чтобы мне не приходилось прокручивать страницу вниз, чтобы проверить вывод текста.

Какова лучшая структура для этого и как мне это сделать? сделать это?

 ui = basicPage(
      # Want below to be a horizontal bar that is pin to bottom of screen at all times
      # 3 textoutput box displayed horizontally, 
      # (not sure how to pin it to bottom and make it flash)
      verbatimTextOutput("default1"),
      verbatimTextOutput("default2"),
      verbatimTextOutput("default3"),

    ),
    server = function(input, output) {
      output$default1 <- renderText({ "Displayed Text 1" })
      output$default2 <- renderText({ "Displayed Text 2 flash green" })
      output$default3 <- renderText({ "Displayed Text 3 flash red" })
    }