Recolher vetor para string de caracteres com os respectivos números de ocorrências consequentes

Eu gostaria de recolher um vetor CIGAR para uma string CIGAR. Por vetor CIGAR para String eu quero dizer o seguinte:

Eu quero uma função que converta:

cigar.vector = c("M", "M", "I", "I", "M", "I", "", "M", "D", "D", "M", "I", "D", "M", "I")

para isso:

cigar.string = "2M2I1M1I1M2D1M1I1D1M1I"

e vice versa.

Note que existe um "" (caracter vazio), que não conta. obrigado!

questionAnswers(1)

yourAnswerToTheQuestion