- - + @@ -145,7 +145,7 @@
- - + @@ -65,7 +65,7 @@
- - + @@ -79,7 +79,7 @@ -
- ask the user to change his password
- see logs about application usage -
- - + @@ -105,7 +105,7 @@
- - + @@ -148,7 +148,7 @@
- - + @@ -67,7 +67,7 @@
- Add
autofocuson username input.
- - Fix some (strange) bug with
input$shinymanager_where-
- - Fix
inputs_listwith some shiny version
- -
-
auth_ui()now accept achoose_languagearguments.
- - Rename
brlanguage intopt-BR(iso code)
- - add user info in downloaded log file -
- add
set_labels()for customize labels
- - Fix simultaneous admin session -
- (#37) hashing password using
scrypt+ - (#84) : new FAB button with a position argument +
- (#81) : keep request query string. Thanks @erikor +
- (#24) : secure_server() : added keep_token arg +
- (#54) add spanish. Thanks @EAMI91 +
- (#98) add german. Thanks @indubio +
- (#106) add polish. Thanks @StatisMike +
- (#39) : fix use shiny bookmarking +
- Admin mode: new edit multiple users +
- Add full language label using
choose_language
+ - (#66) fix
quantedabad interaction
+ - (#71) fix logs count for admin user +
- (#26) : restrict number of users
Contents
diff --git a/docs/articles/SQLite_Admin.html b/docs/articles/SQLite_Admin.html index 419a13d..f2f0172 100644 --- a/docs/articles/SQLite_Admin.html +++ b/docs/articles/SQLite_Admin.html @@ -31,7 +31,7 @@ @@ -39,7 +39,7 @@
+
diff --git a/docs/articles/index.html b/docs/articles/index.html
index 3840e4c..db11788 100644
--- a/docs/articles/index.html
+++ b/docs/articles/index.html
@@ -71,7 +71,7 @@
@@ -79,7 +79,7 @@
diff --git a/docs/authors.html b/docs/authors.html
index 3cf6359..54e7bd9 100644
--- a/docs/authors.html
+++ b/docs/authors.html
@@ -71,7 +71,7 @@
@@ -79,7 +79,7 @@
shinymanager : SQLite Admin
@@ -101,49 +101,50 @@# Credentials data -credentials <- data.frame( - user = c("shiny", "shinymanager"), - password = c("azerty", "12345"), ++ ... +}+# Credentials data +credentials <- data.frame( + user = c("shiny", "shinymanager"), + password = c("azerty", "12345"), # password will automatically be hashed - admin = c(FALSE, TRUE), - stringsAsFactors = FALSE -) + admin = c(FALSE, TRUE), + stringsAsFactors = FALSE +) # you can use keyring package to set database key -library(keyring) -key_set("R-shinymanager-key", "obiwankenobi") +library(keyring) +key_set("R-shinymanager-key", "obiwankenobi") # Init the database -create_db( - credentials_data = credentials, - sqlite_path = "path/to/database.sqlite", # will be created - passphrase = key_get("R-shinymanager-key", "obiwankenobi") +create_db( + credentials_data = credentials, + sqlite_path = "path/to/database.sqlite", # will be created + passphrase = key_get("R-shinymanager-key", "obiwankenobi") # passphrase = "passphrase_wihtout_keyring" -) +) # Wrap your UI with secure_app, enabled admin mode or not -ui <- secure_app(ui, enable_admin = TRUE) +ui <- secure_app(ui, enable_admin = TRUE) -server <- function(input, output, session) { - +server <- function(input, output, session) { + # check_credentials directly on sqlite db - res_auth <- secure_server( - check_credentials = check_credentials( + res_auth <- secure_server( + check_credentials = check_credentials( "path/to/database.sqlite", - passphrase = key_get("R-shinymanager-key", "obiwankenobi") + passphrase = key_get("R-shinymanager-key", "obiwankenobi") # passphrase = "passphrase_wihtout_keyring" - ) - ) - - output$auth_output <- renderPrint({ - reactiveValuesToList(res_auth) - }) - + ) + ) + + output$auth_output <- renderPrint({ + reactiveValuesToList(res_auth) + }) + # your classic server logic - ... -}
Starting page of the application will be :
Once logged, the application will be launched and a button added to navigate between the app and the admin panel (if user is authorized to access it), and to logout from the application :
@@ -246,7 +247,7 @@Authors
diff --git a/docs/index.html b/docs/index.html index 9bdc410..07684bc 100644 --- a/docs/index.html +++ b/docs/index.html @@ -33,7 +33,7 @@ @@ -41,7 +41,7 @@Online documentation : https://datastorm-open.github.io/shinymanager/
-
+
+
+
@@ -142,47 +145,48 @@
-
@@ -254,18 +259,23 @@
+
@@ -348,7 +358,7 @@
diff --git a/docs/news/index.html b/docs/news/index.html
index 714110d..f6b5cbd 100644
--- a/docs/news/index.html
+++ b/docs/news/index.html
@@ -71,7 +71,7 @@
@@ -79,7 +79,7 @@
-News on shinymanager 1.0.300
+News on shinymanager 1.0.400-
-
Installation
Install from CRAN with :
-install.packages("shinymanager")
+install.packages("shinymanager")Or install development version from GitHub :
-remotes::install_github("datastorm-open/shinymanager")
+remotes::install_github("datastorm-open/shinymanager")
@@ -142,47 +145,48 @@
secure_server() & check_credentials()
-# define some credentials
-credentials <- data.frame(
- user = c("shiny", "shinymanager"), # mandatory
- password = c("azerty", "12345"), # mandatory
- start = c("2019-04-15"), # optinal (all others)
- expire = c(NA, "2019-12-31"),
- admin = c(FALSE, TRUE),
- comment = "Simple and secure authentification mechanism
+
+# define some credentials
+credentials <- data.frame(
+ user = c("shiny", "shinymanager"), # mandatory
+ password = c("azerty", "12345"), # mandatory
+ start = c("2019-04-15"), # optinal (all others)
+ expire = c(NA, "2019-12-31"),
+ admin = c(FALSE, TRUE),
+ comment = "Simple and secure authentification mechanism
for single ‘Shiny’ applications.",
- stringsAsFactors = FALSE
-)
+ stringsAsFactors = FALSE
+)
-library(shiny)
-library(shinymanager)
+library(shiny)
+library(shinymanager)
-ui <- fluidPage(
- tags$h2("My secure application"),
- verbatimTextOutput("auth_output")
-)
+ui <- fluidPage(
+ tags$h2("My secure application"),
+ verbatimTextOutput("auth_output")
+)
# Wrap your UI with secure_app
-ui <- secure_app(ui)
-
+ui <- secure_app(ui)
-server <- function(input, output, session) {
+server <- function(input, output, session) {
+
# call the server part
# check_credentials returns a function to authenticate users
- res_auth <- secure_server(
- check_credentials = check_credentials(credentials)
- )
-
- output$auth_output <- renderPrint({
- reactiveValuesToList(res_auth)
- })
-
+ res_auth <- secure_server(
+ check_credentials = check_credentials(credentials)
+ )
+
+ output$auth_output <- renderPrint({
+ reactiveValuesToList(res_auth)
+ })
+
# your classic server logic
+
+}
-}
-
-shinyApp(ui, server)
+shinyApp(ui, server)
secure_server() & check_credentials()
-# define some credentials -credentials <- data.frame( - user = c("shiny", "shinymanager"), # mandatory - password = c("azerty", "12345"), # mandatory - start = c("2019-04-15"), # optinal (all others) - expire = c(NA, "2019-12-31"), - admin = c(FALSE, TRUE), - comment = "Simple and secure authentification mechanism ++shinyApp(ui, server)+# define some credentials +credentials <- data.frame( + user = c("shiny", "shinymanager"), # mandatory + password = c("azerty", "12345"), # mandatory + start = c("2019-04-15"), # optinal (all others) + expire = c(NA, "2019-12-31"), + admin = c(FALSE, TRUE), + comment = "Simple and secure authentification mechanism for single ‘Shiny’ applications.", - stringsAsFactors = FALSE -) + stringsAsFactors = FALSE +) -library(shiny) -library(shinymanager) +library(shiny) +library(shinymanager) -ui <- fluidPage( - tags$h2("My secure application"), - verbatimTextOutput("auth_output") -) +ui <- fluidPage( + tags$h2("My secure application"), + verbatimTextOutput("auth_output") +) # Wrap your UI with secure_app -ui <- secure_app(ui) - +ui <- secure_app(ui) -server <- function(input, output, session) { +server <- function(input, output, session) { + # call the server part # check_credentials returns a function to authenticate users - res_auth <- secure_server( - check_credentials = check_credentials(credentials) - ) - - output$auth_output <- renderPrint({ - reactiveValuesToList(res_auth) - }) - + res_auth <- secure_server( + check_credentials = check_credentials(credentials) + ) + + output$auth_output <- renderPrint({ + reactiveValuesToList(res_auth) + }) + # your classic server logic + +} -} - -shinyApp(ui, server)
Starting page of the application will be :
Once logged, the application will be launched and a button added to navigate between the app and the admin panel (SQL credentials only and if user is authorized to access it), and to logout from the application :
@@ -195,49 +199,50 @@
-# Init DB using credentials data
-credentials <- data.frame(
- user = c("shiny", "shinymanager"),
- password = c("azerty", "12345"),
+
+# Init DB using credentials data
+credentials <- data.frame(
+ user = c("shiny", "shinymanager"),
+ password = c("azerty", "12345"),
# password will automatically be hashed
- admin = c(FALSE, TRUE),
- stringsAsFactors = FALSE
-)
+ admin = c(FALSE, TRUE),
+ stringsAsFactors = FALSE
+)
# you can use keyring package to set database key
-library(keyring)
-key_set("R-shinymanager-key", "obiwankenobi")
+library(keyring)
+key_set("R-shinymanager-key", "obiwankenobi")
# Init the database
-create_db(
- credentials_data = credentials,
- sqlite_path = "path/to/database.sqlite", # will be created
- passphrase = key_get("R-shinymanager-key", "obiwankenobi")
+create_db(
+ credentials_data = credentials,
+ sqlite_path = "path/to/database.sqlite", # will be created
+ passphrase = key_get("R-shinymanager-key", "obiwankenobi")
# passphrase = "passphrase_wihtout_keyring"
-)
+)
# Wrap your UI with secure_app, enabled admin mode or not
-ui <- secure_app(ui, enable_admin = TRUE)
-
+ui <- secure_app(ui, enable_admin = TRUE)
-server <- function(input, output, session) {
+server <- function(input, output, session) {
+
# check_credentials directly on sqlite db
- res_auth <- secure_server(
- check_credentials = check_credentials(
+ res_auth <- secure_server(
+ check_credentials = check_credentials(
"path/to/database.sqlite",
- passphrase = key_get("R-shinymanager-key", "obiwankenobi")
+ passphrase = key_get("R-shinymanager-key", "obiwankenobi")
# passphrase = "passphrase_wihtout_keyring"
- )
- )
-
- output$auth_output <- renderPrint({
- reactiveValuesToList(res_auth)
- })
-
+ )
+ )
+
+ output$auth_output <- renderPrint({
+ reactiveValuesToList(res_auth)
+ })
+
# your classic server logic
- ...
-}
+ ...
+}
# Init DB using credentials data -credentials <- data.frame( - user = c("shiny", "shinymanager"), - password = c("azerty", "12345"), ++ ... +}+# Init DB using credentials data +credentials <- data.frame( + user = c("shiny", "shinymanager"), + password = c("azerty", "12345"), # password will automatically be hashed - admin = c(FALSE, TRUE), - stringsAsFactors = FALSE -) + admin = c(FALSE, TRUE), + stringsAsFactors = FALSE +) # you can use keyring package to set database key -library(keyring) -key_set("R-shinymanager-key", "obiwankenobi") +library(keyring) +key_set("R-shinymanager-key", "obiwankenobi") # Init the database -create_db( - credentials_data = credentials, - sqlite_path = "path/to/database.sqlite", # will be created - passphrase = key_get("R-shinymanager-key", "obiwankenobi") +create_db( + credentials_data = credentials, + sqlite_path = "path/to/database.sqlite", # will be created + passphrase = key_get("R-shinymanager-key", "obiwankenobi") # passphrase = "passphrase_wihtout_keyring" -) +) # Wrap your UI with secure_app, enabled admin mode or not -ui <- secure_app(ui, enable_admin = TRUE) - +ui <- secure_app(ui, enable_admin = TRUE) -server <- function(input, output, session) { +server <- function(input, output, session) { + # check_credentials directly on sqlite db - res_auth <- secure_server( - check_credentials = check_credentials( + res_auth <- secure_server( + check_credentials = check_credentials( "path/to/database.sqlite", - passphrase = key_get("R-shinymanager-key", "obiwankenobi") + passphrase = key_get("R-shinymanager-key", "obiwankenobi") # passphrase = "passphrase_wihtout_keyring" - ) - ) - - output$auth_output <- renderPrint({ - reactiveValuesToList(res_auth) - }) - + ) + ) + + output$auth_output <- renderPrint({ + reactiveValuesToList(res_auth) + }) + # your classic server logic - ... -}
@@ -254,18 +259,23 @@
shiny input
shiny input
Two inputs are created :
-observe({
+observe({
print(input$shinymanager_where)
print(input$shinymanager_language)
-})
+})Customization
You can customize the module (css, image, language, …).
-?secure_app
+?secure_app
?auth_ui
-?set_labels
+?set_labels
+
+Flexdasboard
+It’s possible to use shinymanager authentification on flexdashboard (but not admin console at moment). You can find information on this discussion. But it’s not a really secure way because user can overpass the authentification using developper console… Prefer use shiny application with secure_app function.