Subset lineal regression in R

Question

I have the following formula:

Reg_Total<- In_Bigdata2 %>%  
        lm(log(This_6) ~ This_1+This_2+This_3+This_4+
                   This_5+This_7+This_