Remote right join from k-means

juliasilge · juliasilge · commit 67d13ef10db9 · 2020-06-22T09:18:42.000-06:00
diff --git a/R/kmeans.R b/R/kmeans.R
@@ -87,11 +87,12 @@ simple_kmeans_db <- function(df,
     if (all(prev_centroids == centroids)) break()
   }
   centroids_db <- rename_all(centroids_db, ~paste0("k_", .))
-  right_join(
+  joined <- left_join(
+    rename(new_centroids, k_center = center), 
     centroids_db,
-    new_centroids, 
-    by = c("k_center" = "center")
+    by = "k_center"
     )
+  select(joined, contains("k_"), everything())
 }
 
 calculate_centers <- function(df, center_df, centers, vars) {

Original file line number	Diff line number	Diff line change
`@@ -87,11 +87,12 @@ simple_kmeans_db <- function(df,`
`87`	`87`	`if (all(prev_centroids == centroids)) break()`
`88`	`88`	`}`
`89`	`89`	`centroids_db <- rename_all(centroids_db, ~paste0("k_", .))`
`90`		`- right_join(`
	`90`	`+ joined <- left_join(`
	`91`	`+ rename(new_centroids, k_center = center),`
`91`	`92`	`centroids_db,`
`92`		`- new_centroids,`
`93`		`- by = c("k_center" = "center")`
	`93`	`+ by = "k_center"`
`94`	`94`	`)`
	`95`	`+ select(joined, contains("k_"), everything())`
`95`	`96`	`}`
`96`	`97`
`97`	`98`	`calculate_centers <- function(df, center_df, centers, vars) {`