R如果列名称在矢量中起作用，则从数据框中删除列

Question

我有一个看起来像这样的数据集

data=data.frame(ID=c(1,2,3,4,5),Sales=c(100,200,100,150,200),Profit=c(20,20,10,50,30),Site=c('X','Y','Z','A','B'))

我创建了一个不需要的列的向量（即，如果它们存在于数据框中，则应将其删除）。

unwanted_cols=c('Sales','Site','Product','Sub_Product')

我尝试使用dplyr删除不需要的列（如果它们出现在向量中）。

但是这不起作用

library(dplyr)

if(unwanted_cols %in% colnames(data))
{
  data=data %>%
    select(-unwanted_cols);
}

任何有关如何改善此问题的帮助将不胜感激。