После каждого выступления президента есть фрагмент текста другого человека, который следует формату "."+ "Имя человека" + ":".Таким образом, вы можете использовать следующее для извлечения всех разговоров президента.
text <- c("lalala_testing_purpose PRESIDENTE ANDRÉS MANUEL LÓPEZ OBRADOR: Es que yo hablé, en mi recorrido que hice por el país con todos los gobernadores, a ustedes les consta, porque muchos de los que están aquí me acompañaron. Entonces, antes de ir al acto, en la plaza pública, yo tenía un encuentro con el gobernador y ahí hablábamos, y un tema era acerca del papel de los delegados. Nadie puede decir que no les expliqué de qué se trataba, incluso, en algunos casos hasta públicamente hice mención de que el delegado nunca le iba a faltar el respeto a la autoridad local, al gobernador, al presidente municipal. Es que hay otras cosas que yo entiendo también. Pero yo eso se los dejo de tarea a ustedes, para que ustedes indaguen, investiguen. Con todo respeto, ustedes son mirones profesionales, son periodistas, pero muy buenos periodistas. Ahí término con una. -PREGUNTA: Agencia de Noticias AP. Los médicos cubanos que estaban en Brasil, trabajando hasta Jair Bolsonaro, ellos podían venir a México; ¿hay una negociación en ese sentido, para traer a los médicos cubanos a México? -PRESIDENTE ANDRÉS MANUEL LÓPEZ OBRADOR: No. Eso es una volada de nuestros adversarios, que los queremos mucho, mucho, mucho, pero que son muy mentirosos. PREGUNTA: Señor presidente, Shaila Rosagel, de Sin Embargo, retomando, nada más, para finalizar este tema de Jalisco y de la violencia. Cuánto tiempo estiman para que empiece a disminuir la violencia, este tipo de ataques armados. FRANCISCO GARDUÑO YÁÑEZ: El día de hoy se inicia una etapa más en estas Islas Marías, la primera fue cuando su fundación con Porfirio Díaz; la segunda fue cuando estuvo el general Múgica, que empieza la prevención; la siguiente fue en los 70, con Luis Echeverría en lo que fueron la Ley de Normas Mínimas; y ahora en la Cuarta Transformación es el cierre y el respeto a los derechos humanos.")
library(stringr)
# step 1: get all the conversation chunk between President … : ------------
president_split <- str_split(string = text,pattern = "PRESIDENTE ANDRÉS MANUEL LÓPEZ OBRADOR: ")[[1]][-1]
# step2: split all the chunks by : ---------------------------------------
president_split_2 <- president_split %>% str_split(":")
# step3: remove everything after the last . -------------------------------
get_the_string <- function(string) {
substr(string[1], 1, (gregexpr(pattern = "\\.", string[1])[[1]] %>% max()))
}
sapply(president_split_2, get_the_string)
Результаты:
[1]gobernadores, южноамериканский национальный парк, въездные ворота, входящие в него, действующие на родине, в течение десятилетий, в течение которых вы не выходили из дома, не выходя из строя.Делегаты Нади Пьюде решают все вопросы, связанные с тратабой, в том числе и в других странах. У них есть возможность выступить в качестве делегата нанды, где есть местные власти, Аль-Гобернадор, муниципальный президент.потому что вы знаете, что вам нужно. Когда вы находитесь, вы должны знать, что вам нужно, чтобы узнать, что вы делаете, вы должны знать, что вам нужно, а кто вам нужно. * * * término con una ".
[2] "Нет. Eso es un un volada de nuestros adversarios, que los queremos mucho, mucho, mucho, pero que son muy mentirosos. "