tests/testthat/test-sf_boxes.R

context("boxes")

## issue 77
test_that("boxes created",{

  df <- data.frame(
   id1 = c(1,1,1,1,1,1,1,1,2,2,2,2)
   , id2 = c(1,1,1,1,2,2,2,2,1,1,1,1)
   , x = c(0,0,1,1,1,1,2,2,3,4,4,3)
   , y = c(0,1,1,0,1,2,2,1,3,3,4,4)
  )

  sf_line <- sfheaders::sf_linestring(
    obj = df
    , x = "x"
    , y = "y"
    , linestring_id = "id1"
  )

  sf <- sf_boxes( sf_line )
  sfc <- sf_boxes( sf_line$geometry )
  bbox <- sf_bbox( df, x = "x", y = "y" )

  expect_equal(
    sf$geometry
    , sfc
  )

  expect_equal(
    attr( sfc, "bbox" )
    , bbox
  )

  expect_equal(
    sf_bbox( sfc[1] )
    , sf_bbox( df[ df$id1 == 1, ], x = "x", y = "y" )
  )

  expect_equal(
    sf_bbox( sfc[2] )
    , sf_bbox( df[ df$id1 == 2, ], x = "x", y = "y" )
  )

})

Try the sfheaders package in your browser

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

sfheaders documentation built on May 29, 2024, 1:36 a.m.