Function

コメント･参照等
  • データフレームの空白セルを行方向に埋める関数
FUN = f_fill_cells_column_direction.r 
function (df, row, below_check = T) 
{
    buf <- NA
    for (ccc in seq(ncol(df))) {
        if (!is.na(df[row, ccc])) {
            buf <- df[row, ccc]
        }
        if (below_check) {
            if (!is.na(df[row + 1, ccc])) {
                df[row, ccc] <- buf
            }
        }
        else {
            df[row, ccc] <- buf
        }
    }
    return(df)
}