Replace delete_columns()?

[nikosbosse]

In previous versions, data.table errored if you tried to delete a column that didn't exist. We therefore have a function

delete_columns <- function(df, cols_to_delete, make_unique = FALSE) {
  df <- data.table::as.data.table(df)
  delete_columns <- names(df)[names(df) %in% cols_to_delete]
  if (length(delete_columns) > 0) {
    if (make_unique) {
      df <- unique(df[, eval(delete_columns) := NULL])
    } else {
      df <- df[, eval(delete_columns) := NULL]
    }
  }
  return(df)
}

We could alternatively replace this with suppressWarnings(dt[, coltodelete := NULL). Any objections?

[nikosbosse]

@sbfnk, @sbfnk

[nikosbosse]

Fixed via #529