#11 admin mode : add possibility to export encrypt SQL

Author: bthieurmel

NEWS.md

@@ -2,6 +2,8 @@
 
 * Fix bug on timeout.
 * `secure_app()` now accept a `function` to define the UI.
+* Disable `admin mode` if no SQL database
+* `admin mode` : add possibility to export encrypt SQL
 
 # shinymanager 1.0
 

R/language.R

@@ -92,6 +92,7 @@ language <- R6::R6Class(
       "Users" = "Users",
       "Passwords" = "Passwords",
       "Download logs database" = "Download logs database",
+      "Download SQL database" = "Download SQL database",
       "Reset password for %s?" = "Reset password for %s?",
       "Temporary password:" = "Temporary password:",
       "Password succesfully reset!" = "Password succesfully reset!",
@@ -150,6 +151,7 @@ language <- R6::R6Class(
         "Users" = "Utilisateurs",
         "Passwords" = "Mots de passe",
         "Download logs database" = "T\u00e9l\u00e9charger les logs",
+        "Download SQL database" = "T\u00e9l\u00e9charger la base SQL",
         "Reset password for %s?" = "R\u00e9initialiser le mot de passe de %s ?",
         "Temporary password:" = "Mot de passe temporaire",
         "Password succesfully reset!" = "Mot de passe r\u00e9initialis\u00e9",

R/module-admin.R

@@ -77,7 +77,16 @@ admin_ui <- function(id) {
           icon = icon("key")
         ),
 
-        tags$br(),tags$br(), tags$br()
+        tags$br(),tags$br(), tags$br(), tags$hr(),
+        
+        downloadButton(
+          outputId = ns("download_sql_database"),
+          label = lan$get("Download SQL database"),
+          class = "btn-primary center-block",
+          icon = icon("download")
+        ),
+        
+        tags$br(),tags$br()
 
       )
     )
@@ -498,6 +507,15 @@ admin <- function(input, output, session, sqlite_path, passphrase) {
     update_read_db$x <- Sys.time()
   })
 
+  # download SQL Database
+  output$download_sql_database <- downloadHandler(
+    filename = function() {
+      paste('shinymanager-sql-', Sys.Date(), '.sqlite', sep = '')
+    },
+    content = function(con) {
+      file.copy(sqlite_path, con)
+    }
+  )
 }