diff --git a/app.R b/app.R index 72a69b5..fb66e09 100644 --- a/app.R +++ b/app.R @@ -45,23 +45,17 @@ schms <- readRDS("scheme.rds") # TODO: dynamic button render depend on pandoc installation if (!rmarkdown::pandoc_available()) warning("Can't find pandoc!") +# web resources ------ +shiny::addResourcePath("www", "www") + # UI ======================= ui <- page_sidebar( - # title = config::get("form_name"), - title = tagList( - h4(config::get("form_name"), style = "margin-top: .5rem"), - popover( - span( - config::get("form_app_version"), - fontawesome::fa("circle-info", a11y = "sem", title = "Settings"), - style = "color: #9c9c9c"), - title = "about", - placement = "left", - tagList(span("здесь пока ничего нет"), br(), span("вот")) - ) - ), + title = config::get("form_name"), theme = bs_theme(version = 5, preset = "bootstrap"), + header = tags$head( + tags$link(rel = "icon", href = "www/favicon.ico") + ), sidebar = sidebar( actionButton("add_new_main_key_button", "Добавить новую запись", icon("plus", lib = "font-awesome")), actionButton("save_data_button", "Сохранить данные", icon("floppy-disk", lib = "font-awesome")), @@ -73,9 +67,19 @@ ui <- page_sidebar( uiOutput("display_log"), actionButton("tasks-display_task_modal", "Задачи: нет активных", icon("list-check")), position = "left", - open = list(mobile = "always") + open = list(mobile = "always"), + popover( + span( + config::get("form_app_version"), + fontawesome::fa("circle-info", a11y = "sem", title = "Settings"), + style = "color: #9c9c9c; position: fixed; bottom: 5px; right: 5px;"), + title = "about", + placement = "left", + tagList(span("здесь пока ничего нет"), br(), span("вот")) + ) ), as_fill_carrier(uiOutput("main_ui_navset")), + ) # init auth ======================= diff --git a/www/favicon.ico b/www/favicon.ico new file mode 100644 index 0000000..844ac1d Binary files /dev/null and b/www/favicon.ico differ