Rstudio extract file extensions from a data table containing all files in a directory

Question

I have the following table "test":

vars <- c("abc.pdf", "def.xlsx")
test <- as.data.table(vars) 

How can