fix. lil code fixing

app.R

@@ -26,7 +26,7 @@ box::use(
 # set global settings:
 set_global_options(
   shiny.host = "0.0.0.0",
-  # shiny.port = 1338,
+  shiny.port = 1338,
   APP.DEBUG = FALSE
 )
 
@@ -112,7 +112,7 @@ server <- function(input, output, session) {
     # check_credentials directly on sqlite db
     shinymanager::secure_server(
       check_credentials = shinymanager::check_credentials(
-        db = "config/auth.sqlite",
+        db = "temp/auth.sqlite",
         passphrase = Sys.getenv("AUTH_DB_KEY")
       ),
       keep_token = TRUE