Add RemoteBuildPlatform when building binary

With `pkg_build`. It is not good to add it at
install time, because it is added to binary packages
as well. Ideally we would add it with pkgbuild.

R/builder.R

@@ -6,9 +6,11 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
       "Cannot find package {.pkg {pkg}} in library at {.path {library}}."
     ))
   }
-  version <- desc::desc_get_field("Version", file = pkgdir)
-  rversion <- get_minor_r_version(getRversion())
   platform <- pkgcache::current_r_platform()
+  add_metadata(pkgdir, c(RemoteBuildPlatform = platform))
+  dsc <- desc::desc(file = pkgdir)
+  version <- dsc$get_field("Version")
+  rversion <- get_minor_r_version(getRversion())
 
   sys <- sysname()
   if (sys == "windows") {

R/install-binary.R

@@ -61,10 +61,6 @@ install_extracted_binary <- function(filename, lib_cache, pkg_cache, lib,
 
 #' @importFrom utils modifyList
 add_metadata <- function(pkg_path, metadata) {
-  if (! "RemoteBuildPlatform" %in% names(metadata)) {
-    metadata[["RemoteBuildPlatform"]] <- current_r_platform()
-  }
-
   ## During installation, the DESCRIPTION file is read and an package.rds
   ## file created with most of the information from the DESCRIPTION file.
   ## Functions that read package metadata may use either the DESCRIPTION