# create a user base then hash passwords with sodium
# then save to an rds file in app directory
library(sodium)

user_base <- data.frame(
  user = c("user1", "user2", "user3"),
  password = sapply(c("vaiP6xie9a", "ruf9Phahc4", "Eit2AeCahc"), sodium::password_store), 
  permissions = c("admin", "admin", "standard"),
  name = c("User One", "User Two", "User Three"),
  stringsAsFactors = FALSE,
  row.names = NULL
)

saveRDS(user_base, "user_base.rds")

# in your app code, read in the user base rds file
user_base <- readRDS("user_base.rds")