Как проверить, существует ли несколько чисел в другом векторе множественных чисел в R?

Question

Мне нужно проверить, существуют ли уникальные числа в векторе чисел в другом векторе чисел в R. Мой код показывает мне предупреждающее сообщение.

crp_code <-
 c(41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 51, 51, 51)

uni_codes <- c(11, 21, 41, 51, 81)

if (dput(unique(as.numeric(crp_code))) %in% uni_codes) {
         data <- data[(Crp %in% dput(unique(as.numeric(crp_code))))]
        } else {
          do task 2
        }

crp_code <-
 c(41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 
41, 41, 51, 51, 51)

Warning message:
In if (dput(unique(as.numeric(crp_code))) %in% dput(Gopi_crp_codes)) { :
  the condition has length > 1 and only the first element will be used

Не знаю, почему я получаю предупреждение.Есть предложения по улучшению моего кода?Спасибо.