datastorm-open / shinymanager

Simple and secure authentification mechanism for single shiny applications.
https://datastorm-open.github.io/shinymanager/
388 stars 81 forks source link

duplicated input ID shinymanager_language #198

Open rayanramin opened 2 months ago

rayanramin commented 2 months ago

Hi, I'm new to shinymanager and have encountered an issue I can't figure out. I create an SQLite database like this:

library(shinymanager)
credentials <- data.frame(
    user = c("admin"),
    password = c("pass"),  
    admin = c(TRUE),        
    stringsAsFactors = FALSE
)

create_db(
    credentials_data = credentials,
    sqlite_path = "./database.sqlite", 
    passphrase = "This_is_my_app"  
)

And this is my minimal app :

library(shiny)
library(shinymanager)

ui <- secure_app(
  fluidPage(
    titlePanel("Admin Interface Test"),
    sidebarLayout(
      sidebarPanel(),
      mainPanel()
    )
  ),
  enable_admin = TRUE
)

server <- function(input, output, session) {
  secure_server(
    check_credentials = check_credentials(
      db = "./database.sqlite",
      passphrase = "This_is_my_app"
    )
  )
}

shinyApp(ui, server)

When I enter the Administrator mode, I get the following error:

Shiny Client Errors Duplicate input/output IDs found The following ID was repeated:

What am I missing here, and how to solve this problem? Thanks for any help!