use identical rather than is.na

jjallaire · jjallaire · commit b7878d22688a · 2022-05-28T20:36:46.000-04:00
diff --git a/src/resources/rmd/execute.R b/src/resources/rmd/execute.R
@@ -159,7 +159,7 @@ execute <- function(input, format, tempDir, libDir, dependencies, cwd, params, r
   } else {
     preserve <- NA
   }
-  postProcess <- !is.na(preserve) || isTRUE(format$render$`code-link`)
+  postProcess <- !identical(preserve, NA) || isTRUE(format$render$`code-link`)
 
   # read and then delete the rendered output file
   markdown <- xfun::read_utf8(output_file)

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ execute <- function(input, format, tempDir, libDir, dependencies, cwd, params, r`
`159`	`159`	`} else {`
`160`	`160`	`preserve <- NA`
`161`	`161`	`}`
`162`		- postProcess <- !is.na(preserve) \|\| isTRUE(format$render$`code-link`)
	`162`	+ postProcess <- !identical(preserve, NA) \|\| isTRUE(format$render$`code-link`)
`163`	`163`
`164`	`164`	`# read and then delete the rendered output file`
`165`	`165`	`markdown <- xfun::read_utf8(output_file)`