Rdatatable
diff --git a/‎R/print.data.table.R‎
Lines changed: 1 addition & 1 deletion b/‎R/print.data.table.R‎
Lines changed: 1 addition & 1 deletion
@@ -259,7 +259,7 @@ char.trunc = function(x, trunc.char = getOption("datatable.prettyprint.char")) {
   nchar_width = tryCatch(nchar(x, 'width', allowNA=TRUE), error=identity)
   if (inherits(nchar_width, "error")) { # for R<4.2 e.g. 2366.6 print of fread table gives 'invalid multibyte string'
     x = encodeString(x)
-    x = nchar(x, 'width', allowNA=TRUE)
+    nchar_width = nchar(x, 'width', allowNA=TRUE)
   }
   nchar_chars = nchar(x, 'char', allowNA=TRUE)
   is_full_width = nchar_width > nchar_chars
Original file line number	Diff line number	Diff line change
`@@ -259,7 +259,7 @@ char.trunc = function(x, trunc.char = getOption("datatable.prettyprint.char")) {`
`259`	`259`	`nchar_width = tryCatch(nchar(x, 'width', allowNA=TRUE), error=identity)`
`260`	`260`	`if (inherits(nchar_width, "error")) { # for R<4.2 e.g. 2366.6 print of fread table gives 'invalid multibyte string'`
`261`	`261`	`x = encodeString(x)`
`262`		`- x = nchar(x, 'width', allowNA=TRUE)`
	`262`	`+ nchar_width = nchar(x, 'width', allowNA=TRUE)`
`263`	`263`	`}`
`264`	`264`	`nchar_chars = nchar(x, 'char', allowNA=TRUE)`
`265`	`265`	`is_full_width = nchar_width > nchar_chars`