El problema que tienes es este:
> gregexpr(',',emp.data$emp_name)[[1]][1]-1
[1] 11
Estas usando esto para determinar hasta dónde "recortar" cada valor de emp.data$emp_name
, gregexpr()
te retorna una lista con las posiciones de cada coma, (ninguna, una o varias) de cada uno de los valores de emp_name
, sin embargo, puedes ver que la función solo te retornael retorno final es un único valor, el problema es el acceso por índices que intentas, de ninguna forma funciona como lo has planteado. Creo que la forma más sencilla, es hacer esto:
> unlist(lapply(gregexpr(',',emp.data$emp_name), `[[`, 1))-1
[1] 11 11 13
Conceptualmente lo que estamos haciendo con lapply
es lo siguiente:
c(gregexpr(',',emp.data$emp_name)[[1]][1] - 1,
gregexpr(',',emp.data$emp_name)[[2]][1] - 1,
gregexpr(',',emp.data$emp_name)[[3]][1] - 1)
Es decir, obtenemos el primer valorelemento de cada elementovector de la lista y con unlist
dejamos listo el resultado como un sencillo vectorde forma más "plana".
Finalmente, quedaría todo así:
> substr(emp.data$emp_name,7,stop=unlist(lapply(gregexpr(',',emp.data$emp_name), `[[`, 1))-1)
[1] "UCI-1" "UCI-3" "MARRIB2"