For windows, how can I list only the folders in some folder? I was thinking that dir() and file.info() with isdir==TRUE being something that might work. These folders or directories are numerically named with no dot extension names or other characters. Typically, these are 3132, 3334, ... Here is what I tried. The last line is where I need more work. pData="C:/Myfiles/R/Data/" setwd (pData) x <- dir(pData, all.files=F) y <- file.info(x, x$isdir==T) TIA Kenneth Ray Hobson, P.E. Oklahoma DOT - QA & IAS Manager 200 N.E. 21st Street Oklahoma City, OK 73105-3204
Example: path <- system.file(package="base") pathnames <- list.files(path, full.names=TRUE) isDir <- file.info(pathnames)$isdir dirs <- pathnames[isDir] files <- pathnames[!isDir] If you don't get the 'isDir' line, think of it as infos <- file.info(pathnames) isDir <- infos$isdir /Henrik khobson at fd9ns01.okladot.state.ok.us wrote:> > > > For windows, how can I list only the folders in some folder? > I was thinking that dir() and file.info() with isdir==TRUE being something > that might work. > > These folders or directories are numerically named with no dot extension > names or other characters. Typically, these are 3132, 3334, ... > > Here is what I tried. The last line is where I need more work. > > pData="C:/Myfiles/R/Data/" > setwd (pData) > x <- dir(pData, all.files=F) > y <- file.info(x, x$isdir==T) > > TIA > > Kenneth Ray Hobson, P.E. > Oklahoma DOT - QA & IAS Manager > 200 N.E. 21st Street > Oklahoma City, OK 73105-3204 > > ______________________________________________ > R-help at stat.math.ethz.ch mailing list > stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! R-project.org/posting-guide.html > >
Henrik, thanks! Your example worked fine. Listed below is a sample of what I used and the output.> path <- "C:/MyFiles/Approach/OMRL/Data/" > pathnames <- list.files(path, full.names=F) > isDir <- file.info(pathnames)$isdir > isDir[1] TRUE TRUE TRUE FALSE FALSE FALSE FALSE> dirs <- pathnames[isDir] > dirs[1] "3334" "d1" "NotUsedTemplates"> files <- pathnames[!isDir] > files[1] "O.zip" "Sample21.adx" "Sample21.apr" "Sample21.dbf" [[alternative HTML version deleted]]