从工作目录中提取文件扩展名并检查条件

Question

可能重复： 从文件路径中提取文件扩展名

我处于一种状态，需要检查工作目录中文件的扩展名并做出一些决定。 我通过list.files()检查它，它给了我工作目录中所有带有扩展名的文件。 我得到一个类似的清单

"GSM18423_PA-D_132.cel"        "GSM18424_PA-D_206.cel"        "GSM18425_PA-D_216.cel" 

现在进一步我想要一个条件，如果文件扩展名为.cel请执行以下操作。

if(extension==".cel")
...... else
......

当我寻找tools包时，但无法在R version 3.1.3 RC (2015-03-06 r67947)的R version 3.1.3 RC (2015-03-06 r67947) 。 我尝试了install.packages("tools") ，它弹出一个窗口，要求在安装之前重新启动系统，但最终什么也没做，甚至没有重新启动。 最后我收到一条消息

Installing package into ‘/home/hussain/R/i686-pc-linux-gnu-library/3.1’
(as ‘lib’ is unspecified)
Warning in install.packages :
  package ‘tools’ is not available (for R version 3.1.3 RC)

Answer 1

这是tools::file_ext的源代码

function (x) 
{
    pos <- regexpr("\\.([[:alnum:]]+)$", x)
    ifelse(pos > -1L, substring(x, pos + 1L), "")
}

只需使用此代码创建自己的函数

Answer 2

参考评论@user20650 ，我认为这样做很容易

lst <- list.files()
ext <- grepl("*.cel$", lst)[1]
if(ext)
{ .....
code
....
}else{
....
code
.....
}