Make sure that the DESCRIPTION file actually has data inside it befor…

…e reading
rstudio · Oct 7, 2019 · f48671b · f48671b
1 parent fe551ea
commit f48671b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/install.R b/R/install.R
@@ -323,6 +323,11 @@ load_pkg_description <- function(path) {
     stop("No description at ", path_desc, call. = FALSE)
   }
 
+  # Check description is not empty
+  if (file.info(path_desc)$size == 0){
+    stop("Description filie is empty at ", path_desc, call. = FALSE)
+  }
+
   desc <- as.list(readDcf(path_desc)[1, ])
   names(desc) <- tolower(names(desc))
   desc$path <- path