if (requireNamespace("sf", quietly = TRUE)) {
# Create a sample sf object
sf_data <- sf::st_as_sf(
data.frame(
id = 1:2,
name = c("A", "B"),
geom = c("POINT(-111.9 40.7)", "POINT(-111.8 40.6)")
),
wkt = "geom",
crs = 4326
)
# Process the sf object
processed_data <- process_sf_data(sf_data)
print(processed_data)
}
Run the code above in your browser using DataLab