tests/testthat/test-users.R

library(testthat)
library(WufooR)

options(Wufoo_Name = "johnmalc", Wufoo_API = "S6VI-I8UA-BY11-TDHO")

context("Users")

test_that("User request returns 17 rows, always", {
  userDB <- user_info()
  expect_gte(dim(userDB)[2], 17)
})

Try the WufooR package in your browser

Any scripts or data that you put into this service are public.

WufooR documentation built on April 14, 2020, 5:17 p.m.