Displaying 1 result from an estimated 1 matches for "cadenew".
Did you mean:
cadence
2023 Mar 20
0
str_replace por orden de aparición en una cadena.
...na
> replace_last_equal <- function(s) {
> miwords <- unlist(strsplit(s, "=="))
> paste0(paste(miwords[1:(length(miwords) - 1)], collapse = '=='), '=',
> miwords[length(miwords)])
> }
>
> # Aplicar la función a cada elemento de la cadena
> cadenew <- as.vector( sapply(cadena, replace_last_equal))
>
> # Ver el resultado
> print(cadenew)
> #-----------------------------
>
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 15 mar 2023 a las 0:28, Carlos Ortega (<cof en qualityexcellence.es...