`summary_table()` and `summary_report()` fail if passed `sf` object

[ccsarapas]

Reprex:

library(lighthouse)

nc <- st_read(system.file("shape/nc.shp", package = "sf"))

summary_table(nc, mean, .vars = BIR74)
# Error in st_sf(x, ..., agr = agr, sf_column_name = sf_column_name) :
#   no simple features geometry column present
# In addition: Warning message:
# Expected 2 pieces. Missing pieces filled with `NA` in 1 rows [2].

Works fine if coerced to data.frame or tibble:

summary_table(as.data.frame(nc), mean, .vars = BIR74)
# # A tibble: 1 × 2
#   Variable  mean
#   <chr>    <dbl>
# 1 BIR74    3300.

summary_table(tibble::as_tibble(nc), mean, .vars = BIR74)
# # A tibble: 1 × 2
#   Variable  mean
#   <chr>    <dbl>
# 1 BIR74    3300.

[ccsarapas]

Similar error for summary_report():

summary_report(nc, BIR74)
# Error in st_sf(x, ..., agr = agr, sf_column_name = sf_column_name) : 
#   no simple features geometry column present
# In addition: Warning message:
# Expected 2 pieces. Missing pieces filled with `NA` in 1 rows [3].