Euler 20

The answer is the sum of the digits in 100!

Load gmp to handle lage numbers. Coerce 100 to bigz, calculate the factorial, coerce to text, split in individual characters, unlist, coerce to numeric and sum

library(gmp)

## 
## Attaching package: 'gmp'

## The following objects are masked from 'package:base':
## 
##     %*%, apply, crossprod, matrix, tcrossprod

library(tidyverse)

answer <- 100 %>% 
  as.bigz() %>% 
  factorial  %>% 
  as.character() %>% 
  strsplit("") %>% 
  unlist() %>% 
  as.numeric() %>% 
  sum()