Support DESCRIPTION.in files

Author: jeroen

R/spell-check.R

@@ -69,7 +69,12 @@ spell_check_package <- function(pkg = ".", vignettes = TRUE, lang = "en_GB", use
 as_package <- function(pkg){
   if(inherits(pkg, 'package'))
     return(pkg)
-  description <- normalizePath(file.path(pkg, "DESCRIPTION"), mustWork = TRUE)
+  path <- pkg
+  description <- if(!file.exists(file.path(path, "DESCRIPTION")) && file.exists(file.path(path, "DESCRIPTION.in"))){
+    file.path(path, "DESCRIPTION.in")
+  } else {
+    normalizePath(file.path(path, "DESCRIPTION"), mustWork = TRUE)
+  }
   pkg <- as.list(read.dcf(description)[1,])
   names(pkg) <- tolower(names(pkg))
   pkg$path <- dirname(description)