rasterize with fun = length (and fun = "length") stopped working

[Nowosad]

# remotes::install_github("rspatial/terra")
library(terra)
#> terra 1.7.19
library(sf)
#> Linking to GEOS 3.11.0, GDAL 3.5.2, PROJ 9.0.1; sf_use_s2() is TRUE
cycle_hire_osm = spData::cycle_hire_osm
cycle_hire_osm_projected = st_transform(cycle_hire_osm, "EPSG:27700")
raster_template = rast(ext(cycle_hire_osm_projected), resolution = 1000,
                       crs = st_crs(cycle_hire_osm_projected)$wkt)

ch_raster1 = rasterize(cycle_hire_osm_projected, raster_template, 
                       fun = length)
#> Error in FUN(X[[i]], ...): 2 arguments passed to 'length' which requires 1

ch_raster2 = rasterize(cycle_hire_osm_projected, raster_template, field = 1,
                       fun = length)
#> Error in FUN(X[[i]], ...): 2 arguments passed to 'length' which requires 1

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

[kadyb]

FWIW: It seems that this function works if you use SpatVector instead of sf.

[rhijmans]

Thanks, fixed now. @kadyb thanks for pointing out the origin or the problem.

[bienflorencia]

Hello! I updated terra to the development version doing
install.packages('terra', repos='https://rspatial.r-universe.dev')
but the problem still persists:
Error in h(simpleError(msg, call)) : error in evaluating the argument 'x' in selecting a method for function 'mask': 2 arguments passed to 'length' which requires 1

Has it been fixed? How can I run the rasterize function using fun = 'length'?

[kadyb]

The function seems to work on @Nowosad example. Maybe you should give your example that doesn't work?

packageVersion("terra")
#> [1] ‘1.7.21’

[bienflorencia]

Thanks, @kadyb. I can run @Nowosad's example, but my code is not running. Not sure how to reproduce my example :/

> packageVersion("terra")
# [1] ‘1.7.21’

> packageVersion("sf")
# [1] ‘1.0.12’

> R.Version()
$platform
[1] "x86_64-w64-mingw32"

$arch
[1] "x86_64"

$os
[1] "mingw32"

$system
[1] "x86_64, mingw32"

$status
[1] ""

$major
[1] "4"

$minor
[1] "1.0"

$year
[1] "2021"

$month
[1] "05"

$day
[1] "18"

$`svn rev`
[1] "80317"

$language
[1] "R"

$version.string
[1] "R version 4.1.0 (2021-05-18)"

$nickname
[1] "Camp Pontanezen"

When running my code under the following system, the code runs with no issues:

> packageVersion('sf')
[1] ‘1.0.8’

> packageVersion('terra')
[1] ‘1.7.3’

> R.Version()
$platform
[1] "x86_64-w64-mingw32"

$arch
[1] "x86_64"

$os
[1] "mingw32"

$system
[1] "x86_64, mingw32"

$status
[1] ""

$major
[1] "4"

$minor
[1] "1.0"

$year
[1] "2021"

$month
[1] "05"

$day
[1] "18"

$`svn rev`
[1] "80317"

$language
[1] "R"

$version.string
[1] "R version 4.1.0 (2021-05-18)"

$nickname
[1] "Camp Pontanezen"