first(named_vector) removes names

``` r
library(data.table)
x = setNames(, "A")
x[1]
#>   A 
#> "A"
first(x)
#> [1] "A"
```

In `example(first)`, it suggests `first(x)` and `x[1]` should be interchangeable, but it doesn't hold here.