feat: vis update

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 = 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("вот"))
-    )
-  ),
   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 =======================