Subsetting data, if the column entry contains letters

Question

I have data as follows:

DT <- as.data.frame(c("1","2", "3", "A", "B"))
names(DT)[1] <- "charnum&q