creating a custom R function in SPSS for variable

Question

I am trying to create a custom R function in SPSS to get output Distinct count for dynamic Variables

dt <- data.frame(AA =c("a","h",&qu