Write a script in R code to:

1. Prompt the user to input an integer and store the integer in the variable num.

2. Create a function to determine the number of digits in a number.

3. Use the function to determine how many digits are in the number and store the result in len.

4. Print The [num] has [len] digits.

Use function: nDigits < function(x)nchar(trunc(abs(x)))