Merge pull request #132 from inrae/userguide

Add dbversion and app version in footer

NEWS.md

@@ -5,6 +5,7 @@
 * Update instructions for the translation of the application
 * Update Dockerfile for new R version
 * Give instructions on how to use the package out of Shiny
+* Add dbversion and package version in the footer (#112)
 
 # diades.atlas 0.2.1
 

R/app_ui.R

@@ -102,7 +102,11 @@ app_ui <- function(request) {
           )
         ),
         footer = htmlTemplate(
-          app_sys("app/www/footer.html")
+          app_sys("app/www/footer.html"),
+          db_version = dplyr::tbl(get_con(sess), "dbversion") %>% dplyr::pull(dbversion_number),
+          # db_version = 1,
+          app_version = try(as.character(desc::desc_get_version()), silent = TRUE)
+          # app_version = 2
         )
       )
     )

data-raw/aa-a-exploration_data.Rmd

@@ -139,6 +139,12 @@ get_data_tbl_query_collect(conn_eurodiad,
   geom_line(aes(y = hsi))
 ```
 
+## Get version
+
+```{r}
+tbl(conn_eurodiad, "dbversion") %>% pull(dbversion_number)
+```
+
 
 ## Disconnect from the database
 

inst/app/www/footer.html

@@ -1 +1,2 @@
-<img src="www/DiadES.jpg" height="30px" />
+<img src="www/DiadES.jpg" height="30px" />
+<div style="right:0;"><span>DB version: {{db_version}}</span> - <span>App version: {{app_version}}</span> - <span>by <a href="https://rtask.thinkr.fr">ThinkR</a></span></div>