Not limited to the object numbers

[uribo]

現在、処理速度の問題から1000件以上のデータがあるファイルについてはsfではなくlistで返却するようになっている。

fgdr/R/read_fdg.R

Lines 254 to 261 in 535e061

	if (length(res) >= 10000) {
	rlang::inform("There are over 10,000 elements. Because there are many cases, will be return it as a list.")
	} else {
	res <-
	res %>%
	purrr::reduce(rbind)
	}
	}

件数によってクラスが異なるのも変なのでsfにする、かつ処理時間の問題を解決する。

[uribo]

benchmark ...🐌

bench::mark(
+   fgdr::read_fgd("FG-GML-563804-BldA-20180101-0001.xml"),
+             max_iterations = 3)
There are over 10,000 elements. Because there are many cases, will be return it as a list.
# A tibble: 1 x 14
  expression             min   mean  median   max `itr/sec` mem_alloc  n_gc n_itr total_time result memory  time  gc   
  <chr>               <bch:> <bch:> <bch:t> <bch>     <dbl> <bch:byt> <dbl> <int>   <bch:tm> <list> <list>  <lis> <lis>
1 "fgdr::read_fgd(\"…  4.99m  4.99m   4.99m 4.99m   0.00334    1.78GB   369     1      4.99m <list… <Rprof… <bch… <tib…
Warning messages:
1: In st_collection_extract.sf(., "POLYGON") :
  x contains no geometries of specified type
2: In st_collection_extract.sf(., "POLYGON") :
  x contains no geometries of specified type
3: Some expressions had a GC in every iteration; so filtering is disabled. 

ここからsfにするにはさらに処理が必要で、こちらも時間がかかる。