# NOT RUN {
set.seed(1)
x <- rnorm(100)
# Extract first digits (without zero)
extract_digits(x, check = 'first')
# Extract last digits (including zero)
extract_digits(x, check = 'last', include.zero = TRUE)
# }
Run the code above in your browser using DataLab