21 lines
675 B
R
21 lines
675 B
R
# script to setup authentification database (using shinymanager)
|
|
|
|
# SETUP AUTH =============================
|
|
# Init DB using credentials data
|
|
credentials <- data.frame(
|
|
user = c("admin", "user", "user2"),
|
|
password = c("admin", "user", "user2"),
|
|
# password will automatically be hashed
|
|
admin = c(TRUE, FALSE, FALSE),
|
|
scheme_access = c(NA, "all", "example_of_scheme"), # NA - none | all - all | string with seperate
|
|
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"
|
|
)
|