tests/testthat/test-construct_authors.R

test_that("construct_authors works", {
  
  a1 <- construct_authors()
  testthat::expect_equal(as.character(a1), "yourGivenName yourFamilyName <yourEmail@email.com> [cre] (yourOrcidId)")
  
  a2 <- construct_authors(authors = "Test 1, Test1")
  testthat::expect_equal(as.character(a2), "Test 1, Test1")
})

Try the rworkflows package in your browser

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

rworkflows documentation built on May 29, 2024, 2:37 a.m.