sit_traps() breaks if one of the variables is a factor.

library(sit)

## Working example from ?traps_sf()
traps_sf <- sf::st_as_sf(
  data.frame(
    x = 1:3,
    y = 3:1,
    "Trap.Id" = letters[1:3],
    Type = "BGS",
    area = "sit"
  ),
  coords = c("x", "y")
)
sit_traps(traps_sf, id = "Trap.Id", type = "Type", area = "area")
#> Simple feature collection with 3 features and 8 fields
#> Geometry type: POINT
#> Dimension:     XY
#> Bounding box:  xmin: 1 ymin: 1 xmax: 3 ymax: 3
#> CRS:           NA
#>   id code area label   type_name type_label type_stage type_description
#> 1  1    a  sit    NA BG-Sentinel        BGS      adult               NA
#> 2  2    b  sit    NA BG-Sentinel        BGS      adult               NA
#> 3  3    c  sit    NA BG-Sentinel        BGS      adult               NA
#>      geometry
#> 1 POINT (1 3)
#> 2 POINT (2 2)
#> 3 POINT (3 1)

## Issue when one of the variables is a factor
traps_sf$area <- factor(traps_sf$area)
sit_traps(
  traps_sf,
  id = "Trap.Id", type = "Type", area = "area"
)
#> Error in lapply(x[i], as.numeric): 'list' object cannot be coerced to type 'double'

^{Created on 2023-03-05 with reprex v2.0.2}