inst/plumber/test/03_test_app_users.R

In Tychobra/polishedapi: Authentication and Administration API for Shiny apps

# GET /app-users
res <- httr::GET(
  url = paste0(url_, "/app-users"),
  httr::authenticate(
    user = secret_key,
    password = ""
  ),
  query = list(
    app_uid = app_uid
  )
)

dat <- jsonlite::fromJSON(
  httr::content(res, "text", encoding = "UTF-8")
)

# POST /app-users
# test that user limit works when user attempts to create a new user
res <- httr::POST(
  url = paste0(url_, "/app-users"),
  httr::authenticate(
    user = secret_key,
    password = ""
  ),
  query = list(
    email = "hi3@tychobra.com",
    app_uid = app_uid,
    is_admin = FALSE
  )
)

dat <- jsonlite::fromJSON(
  httr::content(res, "text", encoding = "UTF-8")
)

res <- httr::POST(
  url = paste0(url_, "/app-users"),
  httr::authenticate(
    user = secret_key,
    password = ""
  ),
  query = list(
    email = test_email,
    app_uid = app_uid,
    is_admin = FALSE
  )
)

dat <- jsonlite::fromJSON(
  httr::content(res, "text", encoding = "UTF-8")
)