Fix current_r_platform*() on Linux

That I just broke.

Author: gaborcsardi

R/platform-linux.R

@@ -10,7 +10,10 @@ current_r_platform_data_linux <- function(raw, etc = "/etc") {
     error = function(e) NULL
   )
 
-  cbind(raw, parse_linux_platform_info(os, rh))
+  cbind(
+    raw[, setdiff(names(raw), c("distribution", "release")), drop = FALSE],
+    parse_linux_platform_info(os, rh)
+  )
 }
 
 unknown_dist <- function() {

tests/testthat/_snaps/platform.md

@@ -59,6 +59,19 @@
       Error in `get_package_dirs_for_platform()`:
       ! pkgcache does not support packages for R versions before R 3.2
 
+---
+
+    Code
+      get_all_package_dirs("windows", "2.15.0")
+    Condition
+      Error in `FUN()`:
+      ! pkgcache does not support packages for R versions before R 3.2
+    Code
+      get_all_package_dirs("macos", "3.1.3")
+    Condition
+      Error in `FUN()`:
+      ! pkgcache does not support packages for R versions before R 3.2
+
 # current_r_platform_data_linux
 
     Code