refactor: некоторые изменения кода

utils/init_login_db.r

@@ -0,0 +1,19 @@
+# script to setup authentification database (using shinymanager)
+
+# SETUP AUTH =============================
+# Init DB using credentials data
+credentials <- data.frame(
+  user = c("admin", "user"),
+  password = c("admin", "user"),
+  # password will automatically be hashed
+  admin = c(TRUE, FALSE),
+  stringsAsFactors = FALSE
+)
+
+# Init the database
+shinymanager::create_db(
+  credentials_data = credentials,
+  sqlite_path = "auth.sqlite", # will be created
+  passphrase = Sys.getenv("AUTH_DB_KEY")
+  # passphrase = "passphrase_wihtout_keyring"
+)