R/nchars_row.R

In neugelb/neugelbtools: Various small Neugelb tools

nchars_row <- function(df) {

require(tidyverse)

nrows <- tibble()

for (i in 1:nrow(df)) {

  temp <- df %>%
    slice(i)

  temp <- nchar(temp)

  nrows <- bind_rows(nrows,temp)

}

nrows$total_chars <- rowSums(nrows)

return(nrows)

}

too_many_chars <- function(df,number) {

  x  <- df %>%
    mutate(over = total_chars > number) %>%
    filter(over == TRUE) %>%
    pull(over)

  return(x)
}