use is.na<- to set NA

MichaelChirico · web-flow · commit 51389d48b027 · 2021-08-05T17:09:55.000-07:00
diff --git a/R/print.data.table.R b/R/print.data.table.R
@@ -192,7 +192,7 @@ format_col.POSIXct = function(x, ..., timezone=FALSE) {
     tz = attr(x,'tzone',exact=TRUE)
     nas = is.na(x)
     x = paste0(as.character(x)," ",tz)
-    x[nas] = NA_character_
+    is.na(x) = nas
   } else {
     x = format(x, usetz=FALSE)
   }

Original file line number	Diff line number	Diff line change
`@@ -192,7 +192,7 @@ format_col.POSIXct = function(x, ..., timezone=FALSE) {`
`192`	`192`	`tz = attr(x,'tzone',exact=TRUE)`
`193`	`193`	`nas = is.na(x)`
`194`	`194`	`x = paste0(as.character(x)," ",tz)`
`195`		`- x[nas] = NA_character_`
	`195`	`+ is.na(x) = nas`
`196`	`196`	`} else {`
`197`	`197`	`x = format(x, usetz=FALSE)`
`198`	`198`	`}`