R语言以拖拽方式获取文件路径的部件

在使用R语言的过程中，经常需要打开文件、获取文件路径等，有没有觉得操作很麻烦？

本人写了个可以实现以拖拽方式获取文件路径的外部部件（暂命名为“GetPath.exe”，详见附件），可以通过简单的R代码很好的封装起来使用，从而大大提高交互的效率。

在R语言中的封装如下：

# 说明：your_path 为放置GetPath.exe的文件夹路径
getpath<-function(){
	shell(your_path\\GetPath.exe',intern=TRUE)	
}

使用说明：

        1、从附件中下载GetPath.exe，放置到任意文件路径，假定为 your_path；

        2、在R中运行上述封装代码就可以使用了【注意路径要替换为你的实际路径】。

使用效果如下：

> p<-getpath()
# 代码运行后将弹出一个置顶的小窗口
# 把桌面上一个新建的excel表拖拽到这个小窗口
# 释放鼠标之后小窗口就会自行关闭，并把文件路径传给R的对象p
> p
[1] "C:\\Users\\Admin\\Desktop\\新建 Microsoft Excel 工作表.xlsx"

  note: 这个版本为windows 64位版本

由于这个部件是外部的，具有很强的通用性，支持文件和文件夹（能拖拽的都支持），同时在python等解释型控制台都可以使用（封装代码参照R代码）。