as.character() conduce a pérdida de precisión numérica cuando se transforma una cadena en un número.

En R, quiero ejecutar el siguiente código:

str <- “2811.1019192874087”
val <- as.numeric(str)
str2 <- as.character(val)
print(str2)
print(val)

Esto imprime:

“2811.10191928741”
2811.102

Pero quiero:

“2811.1019192874087”
2811.102

En resumen, me gustaría que la precisión no se perdiera con as.character(). Ya he intentado usar options(digits = x) donde x es un número de mi elección, pero esto solo cambia la salida y no el valor en sí. También intenté usar trimws(format(round(x, k), nsmall=k)). Este sistema parece funcionar pero desafortunadamente la salida es de tipo character en lugar de ser de tipo numeric.

Si hago lo mismo en Java funciona correctamente. Ejecuto el siguiente código:

String str = “2811.1019192874087”;
double val = Double.parseDouble(str);
String str2 = String.valueOf(val);
System.out.println(str2);
System.out.println(val);

Esto imprime:

2811.1019192874087
2811.1019192874087

¿Cómo puedo solucionar el problema en R? Muchas gracias.