createWindowsShortcut {R.utils} | R Documentation |
Creates a Microsoft Windows Shortcut (.lnk file).
## Default S3 method: createWindowsShortcut(pathname, target, overwrite=FALSE, ...)
pathname |
The pathname (with file extension *.lnk) of the link file to be created. |
target |
The target file or directory to which the shortcut should point to. |
overwrite |
If TRUE , an existing link file is overwritten,
otherwise not. |
... |
Not used. |
Returns (invisibly) the pathname.
Henrik Bengtsson (http://www.braju.com/R/)
[1] Create a windows shortcut (.LNK file), SS64.com,
http://ss64.com/nt/shortcut.html
# Create Windows Shortcut links to a directory and a file targets <- list( system.file(package="R.utils"), system.file("DESCRIPTION", package="R.utils") ) for (kk in seq(along=targets)) { cat("Link #", kk, "\n", sep=""); target <- targets[[kk]]; cat("Target: ", target, "\n", sep=""); # Name of *.lnk file pathname <- sprintf("%s.LNK", tempfile()) tryCatch({ # Will only work on Windows systems with support for VB scripting createWindowsShortcut(pathname, target=target) }, error = function(ex) {}) # Was it created? if (isFile(pathname)) { cat("Created link file: ", pathname, "\n", sep=""); # Validate that it points to the correct target dest <- filePath(pathname, expandLinks="any") cat("Available target: ", dest, "\n", sep=""); file.remove(pathname) stopifnot(tolower(dest) == tolower(target)) } }