# Creating an empty plateau line object
pgo1 <- create_empty_pgeometry("PLATEAULINE")
# Checking if it is empty
spa_is_empty(pgo1)
# Adding a component to it and checking if it still empty
comp <- create_component("LINESTRING(1 1, 2 2, 2 3)", 0.5)
pgo1 <- spa_add_component(pgo1, comp)
spa_is_empty(pgo1)
Run the code above in your browser using DataLab