Administrator mode unavailable

[maxcnt]

Hello,

thanks for your implication in this great package!

I tried to reproduce the example in your documentation :

credentials <- data.frame(
  user = c("shiny", "shinymanager"), # mandatory
  password = c("azerty", "12345"), # mandatory
  start = c("2019-04-15"), # optinal (all others)
  expire = c(NA, "2020-12-31"),
  admin = c(FALSE, TRUE),
  comment = "Simple and secure authentification mechanism 
  for single ‘Shiny’ applications.",
  stringsAsFactors = FALSE
)

library(shiny)
library(shinymanager)

ui <- fluidPage(
  tags$h2("My secure application"),
  verbatimTextOutput("auth_output")
)

ui <- secure_app(ui)

server <- function(input, output, session) {

  res_auth <- secure_server(
    check_credentials = check_credentials(credentials)
  )

  output$auth_output <- renderPrint({
    reactiveValuesToList(res_auth)
  })

}

shinyApp(ui, server)

However, I'm unable to go into the administrator mode. Once I'm logged in with a user (I tried both users), the 'administrator mode' is not shown.

I'm working on R 4.0.0.

Is there specific code that I missed to allow an user to be admin ?

Thanks.

[bthieurmel]

Hi,

Same as #44. Admin mode is only available using sqlite database and secure_app(ui, enable_admin = TRUE)