Function

コメント･参照等
  • データフレームから空列、空行を削除する関数
FUN = f_remove_blank_row_and_column.r 
function (df, column = T, row = T) 
{
    if (column) {
        df <- df[, !apply(df, 2, function(x) all(is.na(x)))]
    }
    if (row) {
        df <- df[!apply(df, 1, function(x) all(is.na(x))), ]
    }
    return(df)
}