Update as.character

Ajout d'un argument pour le nombre chars Par défaut 255 Corrige le bug
tidyverse · Oct 14, 2024 · c898924 · c898924
1 parent 665eedd
commit c898924
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/backend-teradata.R b/R/backend-teradata.R
@@ -110,7 +110,10 @@ sql_translation.Teradata <- function(con) {
                         sql_expr(CAST(!!x %as% DECIMAL(12L, !!digits)))
                       },
       as.double     = sql_cast("FLOAT"),
-      as.character  = sql_cast("VARCHAR(MAX)"),
+      as.character  = function(x, nchar = 255L) {
+        nchar <- vctrs::vec_cast(nchar, integer())
+        sql_expr(CAST(!!x %as% VARCHAR(!!nchar)))
+      },
       as.Date       = teradata_as_date,
       log10         = sql_prefix("LOG"),
       log           = sql_log(),