如何从右到左分割字符串,如Python的rsplit()？

假设一个向量:

xx.1 <- c("zz_ZZ_uu_d", "II_OO_d")

我想从最右边分割出一个新的矢量,只分裂一次.预期结果将是:

c("zz_ZZ_uu", "d", "II_OO", "d").

这就像python的rsplit()功能.我现在的想法是扭转字符串,并与分裂str_split()在stringr.

更好的解决方案？