Set mustWork = TRUE

KWB-R · Apr 12, 2024 · 636d767 · 636d767
1 parent 58aeca4
commit 636d767
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/getPackageLicences.R b/R/getPackageLicences.R
@@ -21,7 +21,10 @@ getPackageLicences <- function(packages)
 # readDescription --------------------------------------------------------------
 readDescription <- function(package)
 {
-  description <- read.dcf(system.file("DESCRIPTION", package = package))
+  description <- "DESCRIPTION" %>% 
+    system.file(package = package, mustWork = TRUE) %>% 
+    read.dcf()
+
   colnames(description) <- tolower(colnames(description))
   description
 }