letting users change number of clusters not reactive yet

acastrob · Jul 19, 2017 · f0266af · f0266af
1 parent 489eb8c
commit f0266af
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 18 deletions.
diff --git a/cluster.R b/cluster.R
@@ -84,19 +84,19 @@ resp = response_vars)
 
 
 
-cluster_it <- function(df_preds, n_centers) {
-  set.seed(9)
-  clustered_df_out <- kmeans(x = df_preds$preds, centers = n_centers, trace = FALSE)
-  
-  clustered_df <- as_tibble(data.frame(
-    cluster_assignment = factor(clustered_df_out$cluster),
-    df_preds$outcome, df_preds$preds,
-    df_preds$df_for_clustering %>% select(abv, ibu, srm)))
-  
-  return(clustered_df)
-}
-
-clustered_beer <- cluster_it(df_preds = cluster_prep, n_centers = 10)
+# cluster_it <- function(df_preds, n_centers) {
+#   set.seed(9)
+#   clustered_df_out <- kmeans(x = df_preds$preds, centers = n_centers, trace = FALSE)
+# 
+#   clustered_df <- as_tibble(data.frame(
+#     cluster_assignment = factor(clustered_df_out$cluster),
+#     df_preds$outcome, df_preds$preds,
+#     df_preds$df_for_clustering %>% select(abv, ibu, srm)))
+# 
+#   return(clustered_df)
+# }
+# 
+# clustered_beer <- cluster_it(df_preds = cluster_prep, n_centers = 10)
 
 
 

diff --git a/clusterfun/server.R b/clusterfun/server.R
@@ -3,13 +3,32 @@ library(shiny)
 
 source("../cluster.R")
 
+
+
+
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
-
+
+    cluster_it <- function(df_preds, n_centers) {
+    set.seed(9)
+    clustered_df_out <- kmeans(x = df_preds$preds, centers = n_centers, trace = FALSE)
+
+    clustered_df <- as_tibble(data.frame(
+      cluster_assignment = factor(clustered_df_out$cluster),
+      df_preds$outcome, df_preds$preds,
+      df_preds$df_for_clustering %>% select(abv, ibu, srm)))
+
+    return(clustered_df)
+  }
+
+  reactive ({ clustered_beer <- cluster_it(df_preds = cluster_prep, n_centers = input$num_clusters) })
+
+
+
   output$cluster_plot <- renderPlot({
 
-    this_style_data <- clustered_beer %>% filter(style_collapsed == input$style_collapsed)
-    this_style_center <- style_centers %>% filter(style_collapsed == input$style_collapsed)
+    this_style_data <- clustered_beer %>% filter(style_collapsed == input$style_collapsed) 
+    this_style_center <- style_centers %>% filter(style_collapsed == input$style_collapsed) 
 
     ggplot() +   
       geom_point(data = this_style_data, 
@@ -23,7 +42,7 @@ shinyServer(function(input, output) {
       ggtitle("k-Means Clustered Beer") +
       labs(x = "ABV", y = "IBU") +
       labs(colour = "Cluster Assignment") +
-      theme_minimal()
+      theme_minimal() 
 
   })
 

diff --git a/clusterfun/ui.R b/clusterfun/ui.R
@@ -15,7 +15,12 @@ shinyUI(fluidPage(
                        "Brown" = "Brown", 
                        "Double India Pale Ale" = "Double India Pale Ale",
                        "Red" = "Red",
-                       "Stout" = "Stout"))
+                       "Stout" = "Stout")),
+
+      selectInput("num_clusters", "Number of Clusters:", 
+                  list("1" = "1",
+                       "2" = "2",
+                       "10" = "10"))
 
       # checkboxInput("show_centers", "Show style centers", FALSE)
     ),