# NOT RUN {
df <- dft[1:5, 1:6] # Dummy data
colnames(df) <- c("ID.", "34", "x_2", "Num 123", "N<U+00F2>n-<U+00E4>sc<U+00EC>", " white Spaces ")
print(df)
cleanNames(df)
cleanNames(df, lower = FALSE)
# }
Run the code above in your browser using DataLab