Я хотел бы написать команду strsplit, которая захватывает первый ")" и разбивает строку.
Например:
f("12)34)56")
"12" "34)56"
Я прочитал несколько других связанных с этим вопросов регулярных выражений, но я боюсь, что я не могу сделать головы или хвосты этого. Благодарим вас за помощь.
Вы можете получить тот же результат типа списка, что и с strsplit, если вы использовали regexpr, чтобы получить первое совпадение, а затем инвертированный результат regmatches.
x <- "12)34)56"
regmatches(x, regexpr(")", x), invert = TRUE)
# [[1]]
# [1] "12" "34)56"
Возможно, было бы безопаснее определить, где находится символ, а затем подстроить его с обеих сторон:
x <- "12)34)56"
spl <- regexpr(")",x)
substring(x,c(1,spl+1),c(spl-1,nchar(x)))
#[1] "12" "34)56"
Нужна скорость? Затем перейдите к функциям stringi. См. Тайминги, например. здесь.
library(stringi)
x <- "12)34)56"
stri_split_fixed(str = x, pattern = ")", n = 2)
Замените первый ( на непечатный символ "\01", а затем strsplit на этом. Вы можете использовать любой символ, который вам нравится, вместо "\01", если он не отображается.
strsplit(sub(")", "\01", "12)34)56"), "\01")
Другой вариант - использовать str_split в пакете stringr:
library(stringr)
f <- function(string)
{
unlist(str_split(string,"\\)",n=2))
}
> f("12)34)56")
[1] "12" "34)56"