在 R 中找到等价物

Question

我希望使用类似 python 的 rfind，但在 R 中。

基本上，我有一个这样的字符串："Black-crowned Night-Heron - Nycticorax nycticorax"，我正在寻找那个中间连字符（“-”）的索引。

最终目标是保存该索引值并使用 substr() 函数获取子字符串，最终结果只是通用名称："Black-crowned Night-Heron"。

到目前为止，我有newvar = regexpr(" - ", specieslist, fixed = T)，然后是substr(specieslist, 1, newvar)，但它返回的是常用名称，它们后面有一个空格。

那么，我想成为什么样的人："Black-crowned Night-Heron"

改为："Black-crowned Night-Heron "

谢谢！

Answer 1

不确定内置函数，但这似乎可行：

> str.rfind <- function(s, char) { rev(grep(char, unlist(strsplit(s, NULL)), fixed=T))[1]}
> str.rfind('This is nice.', 's')
  [1] 7
> str.rfind('This is nice.', '@')
  [1] NA