fix. lil code fixing

R/utils/init_login_db.r

@@ -14,7 +14,7 @@ credentials <- data.frame(
 # Init the database
 shinymanager::create_db(
   credentials_data = credentials,
-  sqlite_path = "config/auth.sqlite", # will be created
+  sqlite_path = "temp/auth.sqlite", # will be created
   passphrase = Sys.getenv("AUTH_DB_KEY")
   # passphrase = "passphrase_wihtout_keyring"
 )

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
@@ -1149,7 +1149,7 @@ server <- function(input, output, session) {
       # write vector to temp .Rmd file
       writeLines(empty_vec, temp_report, sep = "\n")
       # copy template .docx file
-      file.copy("references/reference.docx", temp_template, overwrite = TRUE)
+      file.copy("resources/references/reference.docx", temp_template, overwrite = TRUE)
 
       # render file via pandoc
       rmarkdown::render(