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){ ...@@ -43,8 +43,8 @@ list.shp <- function(x){
ii = ii+1 ii = ii+1
List.Shp[ii] = dir(shp, pattern = '.shp$', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE) List.Shp[ii] = dir(shp, pattern = '.shp$', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE)
} }
} else if(typeof(Path.Shp)=='character'){ } else if(typeof(x)=='character'){
List.Shp = dir(Path.Shp, pattern = '.shp', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE) List.Shp = dir(x, pattern = '.shp$', full.names = TRUE, ignore.case = FALSE,include.dirs = FALSE)
} }
return(List.Shp) 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