Merge pull request #1 from wincowgerDEV/master

sunburst plots and dropdown fixed
wincowgerDEV · Jul 25, 2023 · 45d3672 · 45d3672
2 parents e5e5727 + 3ec8065
commit 45d3672
Show file tree

Hide file tree

Showing 5 changed files with 1,248 additions and 8 deletions.
diff --git a/data/.gitignore b/data/.gitignore
@@ -0,0 +1 @@
+openai.txt
diff --git a/data/item_embeddings_new.csv b/data/item_embeddings_new.csv
diff --git a/data/material_embeddings_new.csv b/data/material_embeddings_new.csv
diff --git a/server.R b/server.R
@@ -25,8 +25,6 @@ library(ggforce)
 library(skimr)
 library(ggdark)
 
-setwd("/Users/hannahhapich/Documents/R_Scripts/TrashTaxonomy-master")
-
 #Build cleaning functions
 cleantext <- function(x) {
   x <- tolower(gsub("[[:space:]]", "", x))
@@ -759,12 +757,11 @@ server <- function(input,output,session) {
 
   #Plot new merged data as sunburst plots
   ##Material Sunburst Plot ----
-
-  plot_materials <- reactive({
+  output$plot1 <- renderPlotly({
     req(input$df_)
     req(input$d_f_)
 
-    Material_DF <- dataframe %>%
+    Material_DF <- dataframe() %>%
       rename(Count = count) %>%
       group_by(material) %>%
       summarise(Count = n()) %>%
@@ -782,9 +779,8 @@ server <- function(input,output,session) {
 
     material_grouped <- grouped_uncertainty(DF_group = Material_DF_group, Group_Alias = MaterialsAlias, Group_Hierarchy = MaterialsHierarchy, type = "material")
 
-    Materials_Plot <- sunburstplot(df_join_boot = material_grouped)
-
-    output$plot1 <- renderPlotly(Materials_Plot)
+    sunburstplot(df_join_boot = material_grouped)
+
   })
 
 

diff --git a/ui.R b/ui.R
@@ -26,6 +26,21 @@ ui <- fluidPage(
       }
                     "))
   ),
+  tags$head(tags$style(HTML("
+  .form-group.shiny-input-container select {
+    background-color: #000000;  /* Black background color */
+    color: #ffffff;             /* White font color */
+    margin: 0;                  /* Remove margins */
+    padding: 0;                 /* Remove padding */
+    display: inline-block;      /* Add this to allow vertical-align to take effect */
+    vertical-align: middle;     /* Align the dropdown vertically in the middle */
+    width: 100%;                /* Set width to 100% of containing element */
+  }
+  table.dataTable tbody td { 
+    vertical-align: middle;     /* Align the content of the cells vertically in the middle */
+    text-align: center;
+  }
+"))),
 
   #About ----
   tabsetPanel(