duplicated input ID shinymanager_language

[rayanramin]

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:

• "shinymanager_language": 2 inputs

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

[ismirsehregal]

I think the issue is, that the function shinymanager_language() is called in module-auth.R and secure-app.R.

[ismirsehregal]

The issue is gone once input$language is replaced by input$shinymanager_language here and here.