regex - regular - Separar cadena por espacio final en R

r regex cheat sheet

Question

Tengo un vector de cadenas con un número de espacios en. Me gustaría dividir esto en dos vectores divididos por el espacio final. Por ejemplo:

vec <- c(''This is one'', ''And another'', ''And one more again'')

Debe convertirse

vec1 = c(''This is'', ''And'', ''And one more again'')
vec2 = c(''one'', ''another'', ''again'')

¿Hay una manera rápida y fácil de hacer esto? He hecho cosas similares antes de usar gsub y regex, y he logrado obtener el segundo vector usando lo siguiente

vec2 <- gsub(".* ", "", vec)

Pero no se puede averiguar cómo obtener vec1.

Gracias por adelantado

Answer 1

Aquí hay una forma de usar una afirmación de anticipación:

do.call(rbind, strsplit(vec, '' (?=[^ ]+$)'', perl=TRUE))
#      [,1]           [,2]     
# [1,] "This is"      "one"    
# [2,] "And"          "another"
# [3,] "And one more" "again"