如何在R中像1e201一样打印大量数字

Question

norm2 <- function(x){
  sqrt(sum(x^2))

}
norm2(1:2)
norm2(1e200 * rep(1, 100))
format(1e201, scientific=T, big.mark=',')
format(norm2(1e200 * rep(1, 100)),scientific=T, big.mark=',')

由于结果非常大，1e201，R似乎甚至无法以科学格式将其打印出来。如何修改我的函数以格式化大量输出？ THX