Applying dplyr's rename to all columns while using pipe operator

Question

I\'m working with an imported data set that corresponds to the extract below:

set.seed(1)
dta <- data.frame(\"This is Column One\" = runif(n = 10),
               


        

Answer 1

Using Stringr and Dplyr, and the dot operator:

dta %>%
   dplyr::rename_all(funs(
                     stringr::str_replace_all( ., "[[:punct:]]", "_" )
   ))