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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ggmap.feature
> ### Title: Create a map with ggplot2
> ### Aliases: ggmap.feature
> 
> ### ** Examples
> 
> ggmap.feature(c("Adyghe", "Russian"))
Warning: Use of `mapfeat.df$long` is discouraged.
i Use `long` instead.
Warning: Use of `mapfeat.df$lat` is discouraged.
i Use `lat` instead.
Error:
! Problem while converting geom to grob.
i Error occurred in the 3rd layer.
Caused by error in `new_data_frame()`:
! `n` must be an integer of size 1.
Backtrace:
     x
  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(data, self$geom_params, layout, layout$coord)
 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. |                     \-ggplot2 (local) draw_panel(...)
 22. |                       \-ggplot2:::dapply(...)
 23. |                         \-base::lapply(...)
 24. |                           \-ggplot2 (local) FUN(X[[i]], ...)
 25. |                             \-ggplot2 (local) apply_fun(cur_data)
 26. |                               \-ggplot2 (local) fun(x, ...)
 27. |                                 \-vctrs::new_data_frame(...)
 28. \-rlang::abort(message = message)
Execution halted