inst/tinytest/test_dataframe.R

l <- list(1:5, 1:5)
df <- data.frame( x = 1:5, y = 1:5 )
expect_equal( geometries:::.test_make_dataframe( l, 5, c("x","y")), df )

# l <- list()
# expect_equal( geometries:::.test_make_dataframe( l, 0, "x"), data.frame(x = numeric() ) )

Try the geometries package in your browser

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

geometries documentation built on May 29, 2024, 8:20 a.m.