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 retorna un único valor, el problema es el acceso, 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 valor de cada elemento de la lista y con `unlist` dejamos listo el resultado como un sencillo vector.

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"