Извлечь все «целые» элементы символов до определенной точки nchars в R?

Number.prototype.truncate = function(places) {
  var shift = Math.pow(10, places);

  return Math.trunc(this * shift) / shift;
};
1
задан Reputable Misnomer 7 March 2019 в 20:15
поделиться

1 ответ

Мы создадим логический индекс с cumsum для подмножества слов

f1 <- function(vec, n) {
    vec[cumsum(nchar(vec)) < n]
  }

f1(list, 10)
#[1] "the"   "quick"

f1(list, 15)
#[1] "the"   "quick" "brown"
0
ответ дан akrun 7 March 2019 в 20:15
поделиться
Другие вопросы по тегам:

Похожие вопросы: