Running examples in 'ggip-Ex.R' failed
The error most likely occurred in:

> ### Name: geom_hilbert_outline
> ### Title: Hilbert curve outline
> ### Aliases: geom_hilbert_outline
> 
> ### ** Examples
> 
> p <- ggplot() + coord_ip() + theme_ip_light()
> 
> # default shows curve across entire canvas
> p + geom_hilbert_outline()
Error in `geom_hilbert_outline()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `dplyr::summarize()`:
! Problem while computing `..1 = generate_curve_outline(ip, curve_order,
  coord, closed)`.
ℹ The error occurred in row 1.
Caused by error in `network_to_cartesian()`:
! `network` must be an <ip_network> vector.
Backtrace:
     ▆
  1. ├─base (local) `<fn>`(x)
  2. ├─ggplot2:::print.ggplot(x)
  3. │ ├─ggplot2::ggplot_gtable(data)
  4. │ └─ggplot2:::ggplot_gtable.ggplot_built(data)
  5. │   └─ggplot2:::by_layer(...)
  6. │     ├─rlang::try_fetch(...)
  7. │     │ ├─base::tryCatch(...)
  8. │     │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  9. │     │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 10. │     │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 11. │     │ └─base::withCallingHandlers(...)
 12. │     └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 13. │       └─l$draw_geom(d, layout)
 14. │         └─ggplot2 (local) draw_geom(..., self = self)
 15. │           └─self$geom$draw_layer(...)
 16. │             └─ggplot2 (local) draw_layer(..., self = self)
 17. │               └─base::lapply(...)
 18. │                 └─ggplot2 (local) FUN(X[[i]], ...)
 19. │                   ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
 20. │                   └─self$draw_panel(data, panel_params, coord, na.rm = FALSE)
 21. │                     └─ggip (local) draw_panel(..., self = self)
 22. │                       └─... %>% dplyr::distinct()
 23. ├─dplyr::distinct(.)
 24. ├─dplyr::ungroup(.)
 25. ├─dplyr::summarize(...)
 26. ├─dplyr:::summarise.rowwise_df(., generate_curve_outline(ip, curve_order, coord, closed))
 27. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
 28. │   ├─base::withCallingHandlers(...)
 29. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
 30. │     └─base::lapply(.x, .f, ...)
 31. │       └─dplyr (local) FUN(X[[i]], ...)
 32. │         └─mask$eval_all_summarise(quo)
 33. ├─ggip:::generate_curve_outline(ip, curve_order, coord, closed)
 34. │ └─... %>% sides_to_segments(coord)
 35. ├─ggip:::sides_to_segments(., coord)
 36. │ └─... %>% dplyr::select("x", "y", "xend", "yend")
 37. ├─dplyr::select(., "x", "y", "xend", "yend")
 38. ├─dplyr::mutate(...)
 39. ├─ggip:::squares_to_sides(., closed)
 40. │ └─... %>% dplyr::select(-"xmid", -"ymid")
 41. ├─dplyr::select(., -"xmid", -"ymid")
 42. ├─dplyr::mutate(...)
 43. └─ggip::network_to_cartesian(...)
 44.   └─cli::cli_abort("{.arg network} must be an {.cls ip_network} vector.")
 45.     └─rlang::abort(...)
Execution halted