x <- "\r\n\t\t\tExample\t\t\t"
trimws(x)