настройка загрузки сообщения с использованием тегов $ div

Question

Я включил «загрузочное сообщение», которое появляется в верхнем левом углу моего приложения и затем исчезает через 1 секунду.

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

код:

    ui <- fluidPage(

  useShinyjs(),
  #inlineCSS(appCSS),

  # Loading message
  div(
    id = "loading-content",
    h1("Loading...")
  ),