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

> ### Name: plot_summarise
> ### Title: Summarize forest inventory data
> ### Aliases: plot_summarise
> 
> ### ** Examples
> 
> library(forestmangr)
> data("exfm21")
> head(exfm21)
# A tibble: 6 × 13
  STRATA STRAT…¹  PLOT PLOT_…²   DBH    TH OBS      DH TH_EST    CSA   AGE   VWB
   <int>   <int> <int>   <int> <dbl> <dbl> <fct> <dbl>  <dbl>  <dbl> <dbl> <dbl>
1      2      45     1     810  15    23.8 N      25.0   23.8 0.0177  66.1 0.203
2      2      45     1     810  13    23.8 N      25.0   23.8 0.0133  66.1 0.154
3      2      45     1     810  15    24.7 N      25.0   24.7 0.0177  66.1 0.209
4      2      45     1     810  13.5  23.3 N      25.0   23.3 0.0143  66.1 0.162
5      2      45     1     810  15    24.3 N      25.0   24.3 0.0177  66.1 0.206
6      2      45     1     810  14    22.4 N      25.0   22.4 0.0154  66.1 0.168
# … with 1 more variable: VWOB <dbl>, and abbreviated variable names
#   ¹​STRATA_AREA, ²​PLOT_AREA
> 
> # Obligatory arguments. Basic informations about the plot.
> plot_summarise(exfm21, "PLOT", 810)
Error in `dplyr::na_if()`:
! Can't convert `y` <double> to match type of `x` <tbl_df>.
Backtrace:
     ▆
  1. ├─forestmangr::plot_summarise(exfm21, "PLOT", 810)
  2. │ └─... %>% forestmangr::round_df(dec_places)
  3. ├─forestmangr::round_df(., dec_places)
  4. │ └─base::is.data.frame(df)
  5. ├─forestmangr::rm_empty_col(.)
  6. │ └─dplyr::select_if(...)
  7. │   └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
  8. │     └─dplyr::tbl_vars(.tbl)
  9. │       ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
 10. │       │ └─base::structure(...)
 11. │       └─dplyr:::tbl_vars_dispatch(x)
 12. ├─dplyr::na_if(., 0)
 13. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
 14. └─vctrs (local) `<fn>`()
 15.   └─vctrs::vec_default_cast(...)
 16.     ├─base::withRestarts(...)
 17.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 18.     │   └─base (local) doWithOneRestart(return(expr), restart)
 19.     └─vctrs::stop_incompatible_cast(...)
 20.       └─vctrs::stop_incompatible_type(...)
 21.         └─vctrs:::stop_incompatible(...)
 22.           └─vctrs:::stop_vctrs(...)
 23.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted