# R program to trim a string
# to specified width
  
# Creating a vector
x1 <- "GeeksforGeeks"
x2 <- "R Programming"
  
# Calling strtrim() function
strtrim(x1, 5)
strtrim(x2, 7)

[1] "Geeks"
[1] "R Progr"

# R program to trim a string
# to specified width
  
# Creating a vector
x <- c("Hello", "Geeks", "GFG")
  
# Calling strtrim() function
strtrim(x, 2)
strtrim(x, c(1, 2, 3))

[1] "He" "Ge" "GF"
[1] "H"   "Ge"  "GFG"