knitr::opts_chunk$set(echo = TRUE)
library(esr.redcap.user.ui)
library(here)
database <- here("UserUiTest","db_test.sqlite3")
database <- here("UserUiTest","users.db")

user1 <- create_user(
    username = "pdupont",
    password = "MyP@a55w0rd!",
    redcap_key = "E275C0A5476B0812BE2D4C0FF9450D50",
    database =  database
  )

user2 <- create_user(
    username = "lrivas",
    password = "MyP@a55w0rd!",
    redcap_key = paste(rep("A", 32), collapse = ""),
    database =  database
  )
get_all_users(database)


pydupont/esr.redcap.user.ui documentation built on Dec. 25, 2019, 3:20 a.m.