R - replace values conditionally when column names are similar

Question

I have a large dataframe df with 41 columns of data. The first 40 columns have all similar variable names TD1, TD2, TD3 .... TD40 that contain characters. The last column is