check identical first before is.na

LiNk-NY · LiNk-NY · commit 3d6faed62eff · 2025-12-05T13:02:11.000-05:00
diff --git a/R/repository.R b/R/repository.R
@@ -458,7 +458,7 @@ DESCfieldExistsAttr <- function(pkgList, reposRootPath, field) {
             result <- file.exists(file)
             if (result) {
                 field <- as.character(read.dcf(file, fields = field))
-                result <- !is.na(field) && identical(length(field), 1L)
+                result <- identical(length(field), 1L) && !is.na(field)
             }
             result
         }, logical(1L)

Original file line number	Diff line number	Diff line change
`@@ -458,7 +458,7 @@ DESCfieldExistsAttr <- function(pkgList, reposRootPath, field) {`
`458`	`458`	`result <- file.exists(file)`
`459`	`459`	`if (result) {`
`460`	`460`	`field <- as.character(read.dcf(file, fields = field))`
`461`		`- result <- !is.na(field) && identical(length(field), 1L)`
	`461`	`+ result <- identical(length(field), 1L) && !is.na(field)`
`462`	`462`	`}`
`463`	`463`	`result`
`464`	`464`	`}, logical(1L)`