v1.2

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ClimMobTools
 Type: Package
 Title: API Client for the 'ClimMob' Platform
-Version: 1.1
+Version: 1.2
 Authors@R: c(person("Kauê", "de Sousa", 
         email = "[email protected]", 
         role = c("aut", "cre"),

NEWS.md

@@ -1,3 +1,10 @@
+ClimMobTools 1.2 (2024-01-25)
+=========================
+
+### BUG FIXES
+
+* Improves indexing of technologies aliases in `ClimMobTools:::as.data.frame()`
+
 ClimMobTools 1.1 (2023-11-28)
 =========================
 

R/as.data.frame-climmob_list.R

@@ -258,23 +258,11 @@ as.data.frame.CM_list <- function(x,
   # comparisons and package
   comps <- dat[["packages"]][, "comps"]
 
-  if (ncomp == 3) {
-    comps <- lapply(comps, function(x) {
-      x <- unique(unlist(x$technologies))
-      x <- x[-1]
-      names(x) <- paste0("item_", LETTERS[1:length(x)])
-      x
-    })
-  }
-
-  if (ncomp > 3) {
-    comps <- lapply(comps, function(x) {
-      x <- unique(unlist(x$technologies))
-      x <- x[-1]
-      names(x) <- paste0("item_", 1:length(x))
-      x
-    })
-  }
+  comps <- lapply(comps, function(x) {
+    x <- do.call("rbind", x$technologies)[,"alias_name"]
+    names(x) <- paste0("item_", LETTERS[1:length(x)])
+    x
+  })
 
   comps <- do.call("rbind", comps)
 

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://agrdatasci.github.io/ClimMobTools/",
   "issueTracker": "https://github.com/agrdatasci/ClimMobTools/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "1.1",
+  "version": "1.2",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -234,7 +234,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "1328.135KB",
+  "fileSize": "1328.066KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",