tests/testthat/test-extractCode.R

test_that("Length of vector result", {
  # expect_equal(length(extractCode(url = "http://rpubs.com/aephidayatuloh/sendgmail")), 1)
  expect_warning(extractCode(url = 'http://rpubs.com/aephidayatuloh/sendgmail'))
})

Try the rpubs package in your browser

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

rpubs documentation built on Feb. 6, 2020, 5:10 p.m.