Блог

Я пытаюсь попробовать режим администратора с помощью пакета shinymanager, но получил ошибку :

Предупреждение: Ошибка в : нет такой таблицы: журналы

если я проверю базу данных SQLite, в ней будут журналы таблиц, как показано на рисунке ниже

ниже приведен сценарий

 library(shiny)
library(shinymanager)
library(keyring)

key_set("R-shinymanager-key", "test")


credentials <- data.frame(
    user = c("shiny", "shinymanager"),
    password = c("azerty", "12345"),
    # password will automatically be hashed
    admin = c(FALSE, TRUE),
    stringsAsFactors = FALSE
)


create_db(
    credentials_data = credentials,
    sqlite_path = "test123.sqlite", # will be created
    passphrase = key_get("R-shinymanager-key", "test")
    # passphrase = "passphrase_wihtout_keyring"
)


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

ui <- secure_app(ui, enable_admin = TRUE)


server <- function(input, output, session) {
  
  # check_credentials directly on sqlite db
    res_auth <- secure_server(
        check_credentials = check_credentials(
        "test123.sqlite",
        passphrase = key_get("R-shinymanager-key", "test")
        # passphrase = "passphrase_wihtout_keyring"
      )
    )
  
    output$auth_output <- renderPrint({
        reactiveValuesToList(res_auth)
  })
  
  
}

shinyApp(ui, server)
 

Любое решение действительно ценится

Обновить

Я уже знаю, в чем проблема

Имя базы данных SQLite должно быть database.sqlite

 create_db(
    credentials_data = credentials,
    sqlite_path = "database.sqlite", # will be created
    passphrase = key_get("R-shinymanager-key", "test")
    # passphrase = "passphrase_wihtout_keyring"
)

 

 # check_credentials directly on sqlite db
    res_auth <- secure_server(
        check_credentials = check_credentials(
        "database.sqlite",
        passphrase = key_get("R-shinymanager-key", "test")
        # passphrase = "passphrase_wihtout_keyring"
      )
    )