Merge pull request #734 from OpenKnowledgeMaps/single-item-keyword-bugfix

Single item keyword bugfix

Author: chreman

server/preprocessing/other-scripts/preprocess.R

@@ -143,9 +143,13 @@ replace_keywords_if_empty <- function(metadata, stops) {
   vplog$info(paste("vis_id:", .GlobalEnv$VIS_ID, "Documents without subjects after replacing from title:", length(missing_subjects)))
   if (length(missing_subjects) > 0) {
     foreach (i = missing_subjects) %dopar% {
-      candidates = mapply(paste, metadata$title[i], metadata$paper_abstract[i])
+      if (nrow(metadata) == 1) {
+        candidates = mapply(paste, metadata$title, metadata$paper_abstract)
+      } else {
+        candidates = mapply(paste, metadata$title[i,], metadata$paper_abstract[i,])
+      }
       for (i in seq(1, total_length, batch_size)) {
-      candidates = mclapply(candidates, function(x)paste(removeWords(x, stops[i:min(i+batch_size -1, total_length)]), collapse=""))
+        candidates = mclapply(candidates, function(x)paste(removeWords(x, stops[i:min(i+batch_size -1, total_length)]), collapse=""))
       }
       candidates = lapply(candidates, function(x) {gsub("[^[:alpha:]]", " ", x)})
       candidates = lapply(candidates, function(x) {gsub(" +", " ", x)})
@@ -155,7 +159,11 @@ replace_keywords_if_empty <- function(metadata, stops) {
       replacement_keywords <- filter_out_nested_ngrams(names(nn_count), 3)
       replacement_keywords = lapply(replacement_keywords, FUN = function(x) {paste(unlist(x), collapse="; ")})
       replacement_keywords = gsub("_", " ", replacement_keywords)
-      metadata$subject[i] <- paste(replacement_keywords, collapse="; ")
+      if (nrow(metadata) == 1) {
+        metadata$subject <- paste(replacement_keywords, collapse="; ")
+      } else {
+        metadata$subject[i] <- paste(replacement_keywords, collapse="; ")
+      }
     }
   }
   return(metadata)

server/workers/base/renv.lock

@@ -199,9 +199,7 @@
     "renv": {
       "Package": "renv",
       "Version": "0.14.0",
-      "Source": "Repository",
-      "Repository": "CRAN",
-      "Hash": "30e5eba91b67f7f4d75d31de14bbfbdc"
+      "Source": "Repository"
     },
     "rlang": {
       "Package": "rlang",