Use check = FALSE for extra metadata

No need to check for validity, and also, we need
this to embed in pak, because the S3 check methods
do not work there.

DESCRIPTION

@@ -35,6 +35,8 @@ Imports:
     stats,
     utils,
     zip (>= 2.3.0)
+Remotes:
+    r-lib/desc
 Suggests:
     asciicast (>= 2.2.0.9000),
     covr,

R/install-binary.R

@@ -82,7 +82,10 @@ add_metadata <- function(pkg_path, metadata) {
   source_desc <- file.path(pkg_path, "DESCRIPTION")
   binary_desc <- file.path(pkg_path, "Meta", "package.rds")
   if (file.exists(source_desc)) {
-    do.call(desc::desc_set, c(as.list(metadata), list(file = source_desc)))
+    do.call(
+      desc::desc_set,
+      c(as.list(metadata), list(file = source_desc, check = FALSE))
+    )
   }
 
   if (file.exists(binary_desc)) {