Have analyze_license() compute SPDX license identifiers.

With Thierry Onkelinx and Lluis Revilla.

git-svn-id: https://svn.r-project.org/R/trunk@88237 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/tools/R/license.R

@@ -466,7 +466,8 @@ function(x)
                               extensions = NULL,
                               pointers = NULL,
                               is_FOSS = NA,
-                              restricts_use = NA)
+                              restricts_use = NA,
+                              spdx = "")
         list(is_empty = is_empty,
              is_canonical = is_canonical,
              bad_components = bad_components,
@@ -478,7 +479,8 @@ function(x)
              extensions = extensions,
              pointers = pointers,
              is_FOSS = is_FOSS,
-             restricts_use = restricts_use)
+             restricts_use = restricts_use,
+             spdx = spdx)
 
 
     x <- trimws(x)
@@ -495,6 +497,7 @@ function(x)
     is_verified <- FALSE
     is_FOSS <- NA
     restricts_use <- NA
+    spdx <- ""
 
     ## Try splitting into the individual components.
     components <-
@@ -611,6 +614,9 @@ function(x)
                                stringsAsFactors = FALSE)
         }
 
+        spdx <- paste(unique(unlist(lapply(expansions, `[[`, "SPDX"),
+                                    use.names = FALSE)),
+                      collapse = " OR ")
         ## Replace expansions by their labels from the license db.
         ## (As these are unique, we can always easily get the full
         ## expansions back.)
@@ -642,7 +648,8 @@ function(x)
                   extensions = extensions,
                   pointers = pointers,
                   is_FOSS = is_FOSS,
-                  restricts_use = restricts_use)
+                  restricts_use = restricts_use,
+                  spdx = spdx)
 }
 
 .standardize_license_components <-