I was wondering if is possible to do this abbreviation?

```
t <- "CERVANTES CASA,JORGE LUIS"

```

The desired outcome is:

```
CERVANTES, JL

```

Approach:

```
> sub("\\s.+,", ", ", t)
[1] "CERVANTES, JORGE LUIS"

```

My problem is that since I have a long list of names, How can I make the substitution return the first letter of the last two names? Considering that the characters are different from one string to the other. Example:
For "JORGE", J; and for LUIS, "L".