setwd("C:\\XXX")
data <- read.table("XXX.csv", head = TRUE, sep = ",")

library("dplyr")

data <- data %>% mutate ("Alleles" = paste0(data$effectallele,"/", data$NonEA))

data$panlindromic<-sapply(data$Alleles, function(x){x %in% c("(A/T)","(T/A)","(C/G)","(G/C)")}) & sapply(data$EAF, function(x){x >0.42})

data <- data[which(data$panlindromic==F),]

The aboved lines are my code. I merge the effect alleles and non-effect alleles into a column named Alleles, and I want to select panlidromic alleles among column Alleles. But the results show all FALSE, without filtering. I want to see what the wrong is. Thank you very much!