source('./r_files/flatten_HTML.r')
      ############### Library Declarations #########
      library(htmlwidgets);library(XML);library(ggplot2);library(plotly);
      Values$Storiesgrouping<- as.character(Values$Storiesgrouping)
      Cols<- as.character(Values$Color)
      names(Cols) <- as.character(Values$Builder_CommunityName)
      Sizs<-as.numeric(Values$Size)
      names(Sizs) <- as.character(Values$Builder_CommunityName)
      ##########################################################
      ################### Actual code ####################
      g<-