From cc6ea44d5caf7ae1a6059ff726fb59981c2f5865 Mon Sep 17 00:00:00 2001
From: Jon Harmon <jonthegeek@gmail.com>
Date: Wed, 6 Nov 2024 07:38:57 -0600
Subject: [PATCH] Deal with multiple languages in DESCRIPTION.

---
 R/package.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/package.R b/R/package.R
index 68a1cdf8c..bda66d23f 100644
--- a/R/package.R
+++ b/R/package.R
@@ -112,7 +112,10 @@ get_pkg_lang <- function(pkg) {
   }
 
   if (pkg$desc$has_fields("Language")) {
-    return(pkg$desc$get_field("Language"))
+    field <- pkg$desc$get_field("Language")
+    if (length(field) && nchar(field) > 0) {
+      return(regmatches(field, regexpr("[^,]+", field)))
+    }
   }
 
   return("en")