if (requireNamespace("bit64", quietly = TRUE)) {
x <- bit64::seq.integer64(2025, 10^9, 3 * 10^8)
print(x)
print(convert_integer64(x*4, "always_quiet"))
df <- data.frame(a = 11:14, b = x, c = 2 * x, d = 3 * x, e = x * x, f = c(22, 23, 24, 25))
print(df)
df1 <- convert_integer64(df, "never")
df2 <- convert_integer64(df, "if_fits")
df3 <- convert_integer64(df, "if_summable")
df4 <- convert_integer64(df, "always_quiet")
print(sapply(df, class))
print(sapply(df1, class))
print(sapply(df2, class))
print(sapply(df3, class))
print(sapply(df4, class))
print(df2)
print(df4)
cat("# Examples showing that integer64 is problematic:\n")
y <- bit64::seq.integer64(1, 3)
print(y)
print(0.5 * y)
print(y * 0.5)
matrix(y, 1, 3)
}
Run the code above in your browser using DataLab