Hi,
This comes with absolutely no guarantees (and a good recommendation to
be cautious), but you could try it:
myset <- function(name = "", path = "") {
res <- vector("character", length(LETTERS))
for(i in LETTERS) {
res[i] <- shell(shQuote(paste("VOL ", i, ":", sep = '')), intern =
TRUE, ignore.stderr = TRUE)[1L]
}
tmp <- gsub("[[:space:]]", "", grep(name, res, ignore.case = TRUE,
value = TRUE))
if (!nzchar(tmp)) stop("No volume with ", name, "label name could be found")
vol <- strsplit(tmp, "drive|is")[[1L]][2L]
fullpath <- paste(vol, ":/", path, sep = '')
cat("Setting WD to ", fullpath, fill = TRUE)
setwd(fullpath)
}
#### Example usage ####
## set WD to root of volume with label "FLASH_NAME"
myset("FLASH_NAME")
## set WD so some subdirectory
myset("FLASH_NAME", "path/to/something")
At least on my system, this takes awhile to run. It iterates through
all the volumes [A-Z], and there will probably be quite a few warnings
unless all volumes are mounted, but the warnings (at least about not
finding drives/bad exit status) should be ignorable.
Cheers,
Josh
On Tue, Sep 6, 2011 at 2:56 PM, Gene Leynes <gleyne...@gmail.com> wrote:
> On the Mac it's pretty easy to get to a USB drive by name. For example the
> following command works if you have a USB drive named "MYUSB"
> setwd('/Volumes/MYUSB')
>
> Is there a way to do the same thing in Windows (without knowing the drive
> letter)?
>
>
> Thanks!
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Joshua Wiley
Ph.D. Student, Health Psychology
Programmer Analyst II, ATS Statistical Consulting Group
University of California, Los Angeles
https://joshuawiley.com/
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
