Commit d533a015 authored by De Boissieu Florian's avatar De Boissieu Florian
Browse files

fix bug in list.shp

parent cc836494
......@@ -43,8 +43,8 @@ list.shp <- function(x){
ii = ii+1
List.Shp[ii] = dir(shp, pattern = '.shp$', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE)
}
} else if(typeof(Path.Shp)=='character'){
List.Shp = dir(Path.Shp, pattern = '.shp', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE)
} else if(typeof(x)=='character'){
List.Shp = dir(x, pattern = '.shp$', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE)
}
return(List.Shp)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment