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

Question

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

  return Math.trunc(this * shift) / shift;
};

1

r char extract

задан Reputable Misnomer 7 March 2019 в 20:15

1 ответ

Другие вопросы по тегам:

r char extract

score 0 · Answer 1

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

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

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

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