How to calculate column totals, display the totals and delete specific columns from dataframe in R

Question

I have a large dataframe (26rows x 1523 columns) I need to calculate the totals for columns 2:1523 and display the sums in row 27. Then I have to use "if" to find