R：分割数字字符串

我正在尝试拆分 40 位数字的数字字符串（即拆分123456789123456789123456789 into 1 2 3 4 etc.)

很遗憾strsplit不起作用，因为它需要字符，并使用转换字符串as.character不起作用，因为它很长，并且 R 会自动截去长数字的小数点（最多 22 位小数）。我因此最终得到"1.2345e+35"作为字符串，而不是完整的数字。

是否有数字变体strsplit，或者解决小数点截止问题？我似乎无法在 stackoverflow 上找到答案，但如果之前已经回答过这个问题，我深表歉意。提前致谢！

如果 R 正在计算数字，我不知道解决方案。如果该号码位于数据文件中，我认为下面的代码可能有效。不过，如果该数字位于数据文件中，则可能有更简单的解决方案。

a1 <- read.table("c:/users/Mark W Miller/simple R programs/long_number.txt", colClasses = 'character')

# a1 <- c('1234567891234567891234567891234567891234') ;

a1 <- as.character(a1) ;
a2 <- strsplit(a1, "") ;
a3 <- unlist(a2) ;
a4 <- as.vector(as.numeric(a3)) ;
a4
# [1] 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4

EDIT

我意识到我可能不明白这个问题，而且我的回答可能很愚蠢。不过，如果您有一整套非常长的数字数据集，您可以使用下面的代码将它们全部拆分。请注意，文件“two_long_numbers.txt”中没有引号，并且数据以数字开头：

a1 <- read.table("c:/users/Mark W Miller/simple R programs/three_long_numbers.txt", colClasses = 'character')
a1

#      V1                                        
# [1,] "1234567891234567891234567891234567891234"
# [2,] "1888678912345678912345678912345678912388"
# [3,] "1234999891234567891234567891234567891239"

# a1 <- matrix(c(
# "1234567891234567891234567891234567891234",
# "1888678912345678912345678912345678912388",
# "1234999891234567891234567891234567891239"), nrow=3, byrow=T)

a1 <- as.matrix(a1) ;
a2 <- strsplit(a1, "") ;
a3 <- unlist(a2) ;
a3 <- as.numeric(a3) ;
a4 <- matrix(a3, nrow=dim(a1)[1], byrow=T)
a4