R/fill_in_empty_rows.R

In neugelb/neugelbtools: Various small Neugelb tools

fill_in_empty_rows <- function(df) {

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

    x <- df %>%
      select(i) %>%
      distinct() %>%
      pull

    l <- length(x)

    if (l > 1 & NA %in% x) {

      df <- df %>%
        fill(i,.direction = 'down')

    } else {

      next()

    }

  }

  return(df)
}