Running examples in ‘PHENTHAUproc-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: plot_station
> ### Title: Plot local PHENTHAUproc in a circle plot
> ### Aliases: plot_station
> 
> ### ** Examples
> 
> 
> # load daily test data from Freiburg
> fr_df <- load_test("day")
> fr <- phenthau(fr_df)
Calculating PHENTHAUproc with daily mean, min and max temperature data.
First day of calculation: 2019-09-01
Last day of calculation: 2020-09-30
> 
> plot_station(fr)
Error in `geomtextpath::geom_textpath()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 2nd layer.
Caused by error in `txt$shape[, shape_vars]`:
! Can't subset columns that don't exist.
✖ Column `x_midpoint` doesn't exist.
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(...)
 21. │                     └─geomtextpath (local) draw_panel(...)
 22. │                       └─geomtextpath::textpathGrob(...)
 23. │                         └─geomtextpath:::measure_label(...)
 24. │                           └─geomtextpath (local) measure(...)
 25. │                             └─geomtextpath:::text_shape(...)
 26. │                               ├─txt$shape[, shape_vars]
 27. │                               └─tibble:::`[.tbl_df`(txt$shape, , shape_vars)
 28. │                                 └─tibble:::vectbl_as_col_location(...)
 29. │                                   ├─tibble:::subclass_col_index_errors(...)
 30. │                                   │ └─base::withCallingHandlers(...)
 31. │                                   └─vctrs::vec_as_location(j, n, names, missing = "error", call = call)
 32. └─vctrs (local) `<fn>`()
 33.   └─vctrs:::stop_subscript_oob(...)
 34.     └─vctrs:::stop_subscript(...)
 35.       └─rlang::abort(...)
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
           user system elapsed
phenology 6.780  0.311  11.119
phenthau  4.918  0.101   7.090