library(shiny.reglog)
# create a tenporary SQLite database
conn <- DBI::dbConnect(
RSQLite::SQLite(),
dbname = ":memory:"
)
# mockup user data
user_data <-
data.frame(username = c("Whatever", "Hanuka", "Helsinki", "How_come"),
password = c("&f5*MSYj^niDt=V'3.[dyEX.C/", "%}&B[fs\\}5PKE@,*+V\\tx9\"at]",
"35z*ofW\\'G_8,@vCC`]~?e$Jm%", "s:;r_eLn?-D6;oA-=\"^R(-EwRun the code above in your browser using DataLab