Update R/backend-teradata.R

Co-authored-by: Simon P. Couch <[email protected]>
tidyverse · Oct 24, 2024 · 5c40830 · 5c40830
1 parent a49c400
commit 5c40830
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/backend-teradata.R b/R/backend-teradata.R
@@ -111,7 +111,7 @@ sql_translation.Teradata <- function(con) {
                       },
       as.double     = sql_cast("FLOAT"),
       as.character  = function(x, nchar = 255L) {
-        nchar <- vctrs::vec_cast(nchar, integer())
+        check_number_whole(nchar, min = 0, max = 64000)
         sql_expr(CAST(!!x %as% VARCHAR(!!nchar)))
       },
       as.Date       = teradata_as_date,