R data.table: New data table with named columns and drop the rest

Question

I want to do something very simple but so far I have failed to do it in one command. I want to create a new data table by applying a function to some columns of an existing