From 765cafefbd1ccd29a0dba4830b33adf854c8a0a2 Mon Sep 17 00:00:00 2001 From: MGousseff Date: Fri, 7 Jul 2023 17:16:13 +0200 Subject: [PATCH] On the way to a cleaner easier to maintain version of levCol TO DO : rename the case and write the test file. --- R/levCol.R | 22 +- R/standLevCol.R | 3 +- inst/tinytest/test_levCol.R | 8 +- vignettes/bdtopo_2_2_osm.csv | 17344 +++++++++++++++++++++++++++++++ vignettes/lczexplore_alter.Rmd | 106 +- 5 files changed, 17468 insertions(+), 15 deletions(-) diff --git a/R/levCol.R b/R/levCol.R index 651a3ef..103c35c 100644 --- a/R/levCol.R +++ b/R/levCol.R @@ -169,11 +169,16 @@ levCol<-function(sf,column,drop=FALSE,...){ typeLevels<-argLev if(length(indCol==1)) - { if ( length(argLev)