Add getAuthors()

KWB-R · Apr 16, 2024 · 112c4d8 · 112c4d8
1 parent 8db98c3
commit 112c4d8
Show file tree

Hide file tree

Showing 3 changed files with 28 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -15,6 +15,7 @@ export(drawDependencies)
 export(drawLink)
 export(equidistantAngles)
 export(exampleLinksAndNodes)
+export(getAuthors)
 export(getCranPackageDatabase)
 export(getPackageFilesToInstall)
 export(getPackageLicences)

diff --git a/R/getAuthors.R b/R/getAuthors.R
@@ -0,0 +1,13 @@
+# getAuthors -------------------------------------------------------------------
+
+#' Get Information on Package Authors
+#' 
+#' @param package name of (installed) package
+#' @export
+getAuthors <- function(package)
+{
+  description <- readDescription(package)
+  columns <- colnames(description)
+  columns <- grep("author", columns, value = TRUE, ignore.case = TRUE)
+  description[, columns]
+}
diff --git a/man/getAuthors.Rd b/man/getAuthors.Rd