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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: sankey_ly
> ### Title: Sankey Plot with Plotly
> ### Aliases: sankey_ly
> 
> ### ** Examples
> 
> data("sfo_passengers")
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> 
> d <- sfo_passengers %>%
+   filter(activity_period >= 202201 & activity_period < 202301)
> 
> head(d)
  activity_period    operating_airline operating_airline_iata_code
1          202212          EVA Airways                          BR
2          202212          EVA Airways                          BR
3          202212             Emirates                          EK
4          202212             Emirates                          EK
5          202212 Flair Airlines, Ltd.                          F8
6          202212 Flair Airlines, Ltd.                          F8
     published_airline published_airline_iata_code   geo_summary  geo_region
1          EVA Airways                          BR International        Asia
2          EVA Airways                          BR International        Asia
3             Emirates                          EK International Middle East
4             Emirates                          EK International Middle East
5 Flair Airlines, Ltd.                          F8 International      Canada
6 Flair Airlines, Ltd.                          F8 International      Canada
  activity_type_code price_category_code      terminal boarding_area
1           Deplaned               Other International             G
2           Enplaned               Other International             G
3           Deplaned               Other International             A
4           Enplaned               Other International             A
5           Deplaned            Low Fare International             A
6           Enplaned            Low Fare International             A
  passenger_count
1           12405
2           15151
3           13131
4           14985
5            2543
6            2883
> 
> d %>%
+   filter(operating_airline == "United Airlines") %>%
+   mutate(terminal = ifelse(terminal == "International", "international", terminal)) %>%
+   group_by(operating_airline,activity_type_code, geo_summary, geo_region,  terminal) %>%
+   summarise(total = sum(passenger_count), .groups = "drop") %>%
+   sankey_ly(cat_cols = c("operating_airline", "terminal","geo_summary",
+                          "geo_region", "activity_type_code"),
+             num_col = "total",
+             title = "Distribution of United Airlines Passengers at SFO During 2022")
Error:
! `summarise_()` was deprecated in dplyr 0.7.0 and is now defunct.
ℹ Please use `summarise()` instead.
Backtrace:
     ▆
  1. ├─... %>% ...
  2. ├─sfo::sankey_ly(...)
  3. │ ├─... %>% dplyr::bind_rows()
  4. │ └─base::lapply(...)
  5. │   └─sfo (local) FUN(X[[i]], ...)
  6. │     └─... %>% ...
  7. ├─dplyr::bind_rows(.)
  8. │ └─rlang::list2(...)
  9. ├─dplyr::left_join(...)
 10. ├─dplyr::left_join(...)
 11. └─dplyr::summarise_(...)
 12.   └─dplyr:::lazy_defunct("summarise", hint = FALSE)
 13.     └─lifecycle::deprecate_stop(...)
 14.       └─lifecycle:::deprecate_stop0(msg)
 15.         └─rlang::cnd_signal(...)
Execution halted