remove other languages and select columns in spuDist

PredictiveEcology · Oct 2, 2024 · 63569fa · 63569fa
1 parent f853ba4
commit 63569fa
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/spadesCBMextraFunctions.R b/R/spadesCBMextraFunctions.R
@@ -116,10 +116,14 @@ spuDist <- function(mySpu, dbPath) {
   }
 
   # match mySpu with the disturbance_matrix_association table
-  dmid <- unique(cbmTables[[14]][which(cbmTables[[14]][, 1] %in% mySpu), c(1, 3)])
+  dmid <- as.data.table(unique(cbmTables[[14]][which(cbmTables[[14]][, 1] %in% mySpu), c(1, 2, 3)]))
 
+  englishTable <- as.data.table(cbmTables[[15]])
+  englishTable <- englishTable[locale_id <= 1,]
+  englishTable <- englishTable[,c(2,5)]
   # add the descriptive names
-  spuDist <- cbind(dmid, cbmTables[[15]][dmid$disturbance_matrix_id, 5])
+  spuDist <- merge(dmid, englishTable, by = "disturbance_matrix_id")
+  spuDist <- spuDist[,c(1,3,4)]
   return(spuDist)
 }