tests/testthat/test-iproto.R

test_that("iface prototyping", {
  
  expect_equal(
    iproto(i_diamonds),
    ggplot2::diamonds %>% dplyr::filter(FALSE)
  )
  
  expect_equal(
    iproto(i_iris), 
    iris %>% tibble::as_tibble() %>% dplyr::filter(FALSE)
  )
  
  
})

Try the interfacer package in your browser

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

interfacer documentation built on April 4, 2025, 6:13 a.m.