R - UD1

r-ud1-3.r

# mude x[VALOR] de acordo com qual descrição analisar
s <- strsplit(x[91], split = " +")[[1]]
s

# inicia variaveis
vetor = c("");
index = 1;

# para cada palavra da descrição
for (a in s) {
    # se o (tamanho da string no vetor[index] + 1 espaço + tamanho da palavra) > 50
    if ((nchar(vetor[index]) + nchar(a) + 1) > 50) {
     # incrementa o index
     index = index + 1;
     # inicia vazio
     vetor[index] = "";
    }
    # se ja estiver iniciado a preencher, concatena
    if (nchar(vetor[index]) > 0) {
        vetor[index] = paste(vetor[index], a, collapse = "");    
    } else {
    # se não, inicia com a primeira palavra
        vetor[index] = a;
    }
}

# imprime
vetor