small backend improvements

chreman · web-flow · commit af14fca907c3 · 2023-07-22T15:51:32.000+02:00
diff --git a/server/preprocessing/other-scripts/summarize.R b/server/preprocessing/other-scripts/summarize.R
@@ -86,7 +86,7 @@ create_cluster_labels <- function(clusters, metadata,
       summary <- filter_out_nested_ngrams(names(top_ngrams), 3)
       summary = lapply(summary, FUN = function(x) {paste(unlist(x), collapse="; ")})
       summary = gsub("_", " ", summary)
-      summary = paste(summary, collapse="; ")
+      summary = paste(summary, collapse=", ")
     }
     clusters$cluster_labels[c(matches)] = summary
   }

Original file line number	Diff line number	Diff line change
`@@ -86,7 +86,7 @@ create_cluster_labels <- function(clusters, metadata,`
`86`	`86`	`summary <- filter_out_nested_ngrams(names(top_ngrams), 3)`
`87`	`87`	`summary = lapply(summary, FUN = function(x) {paste(unlist(x), collapse="; ")})`
`88`	`88`	`summary = gsub("_", " ", summary)`
`89`		`- summary = paste(summary, collapse="; ")`
	`89`	`+ summary = paste(summary, collapse=", ")`
`90`	`90`	`}`
`91`	`91`	`clusters$cluster_labels[c(matches)] = summary`
`92`	`92`	`}`