interview fixes

dashboard/server.R

@@ -213,6 +213,7 @@ server <- function(input, output, session) {
                               V2=as.numeric(coconut.df[[input[[yplotname]]]])),
                          .Names=c("V1","V2"), row.names=c(NA,10L), class = "data.frame")
         # New Bar-Plot
+        print(as.numeric(data$V1))
        array_plots <<-arrangeGrob(array_plots, barplot(data$V2,data$V1, 
                  ylab=input[[yplotname]],
                  xlab=input[[xplotname]],
@@ -364,7 +365,7 @@ server <- function(input, output, session) {
                               V2=as.numeric(coconut.df[[input[[yplotname]]]])),
                          .Names=c("V1","V2"), row.names=c(NA,10L), class = "data.frame")
         #new scatterplot
-        plot(data$V1,data$V2, type="p", ylab=input[[yplotname]], xlab=input[[xplotname]])
+        plot(data$V1,data$V2, type="p", ylab=input[[yplotname]], xlab=input[[xplotname]], pch=16)
         
       })
     }) #Local end
@@ -400,10 +401,12 @@ server <- function(input, output, session) {
     local({ 
       
       output[[plotname]] <- renderPlot({
+      
         
         #handling data
         data<- structure(list(V1=as.numeric(coconut.df[[input[[xplotname]]]])),
                          .Names=c("V1"), row.names=c(NA,10L), class = "data.frame")
+       
         #new Boxplot
         boxplot(data$V1, type="box", xlab=input[[xplotname]])
         
@@ -461,13 +464,17 @@ server <- function(input, output, session) {
             lables = c('<2', '<5', '<7', '<10')
           )
         #color encoding data
-        colorGrad <- colorFactor('RdYlGn', colorData) 
+        
+        colorGrad <- colorFactor('Blues', colorData)
+        
+        
+        #colorGrad <- colorFactor('RdYlGn', colorData) 
         
         #new map
         m <<- leaflet()
         x=1
         m <<- addTiles(m)
-        m<<-addCircleMarkers(m,lng=as.numeric(coconut.df$gps.longitude), lat=as.numeric(coconut.df$gps.latitude), radius = data, color = colorGrad(colorData)) #addPolylines does not work
+        m<<-addCircleMarkers(m,lng=as.numeric(coconut.df$gps.longitude), lat=as.numeric(coconut.df$gps.latitude), radius = data, color = colorGrad(colorData), fillOpacity = 1 ) #addPolylines does not work
         m<<-addLegend(m, 'bottomright', pal=colorGrad, values=colorData, title=' ',opacity=1)
         m
         

dashboard/ui.R

@@ -14,7 +14,7 @@ ui <- dashboardPage(
       id="tabs",
       menuItem("Upload", tabName = "upload", icon =icon("upload")),
       menuItem("Data", tabName = "data", icon =icon("list")),
-      menuItem("Views", tabName = "views", icon = icon("cog")),
+      menuItem("Dashboard", tabName = "views", icon = icon("bar-chart-o")),
      # menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
       menuItem("Help", tabName = "help", icon = icon("book"))
     )
@@ -49,17 +49,12 @@ ui <- dashboardPage(
       tabItem(tabName = "data",
               
                 h2("Look into the CoConUT Data:"),
-                h4("Last Loaded CoConUT Data: "),
-                textOutput("lastLoadedNut"),
+                h3(textOutput("lastLoadedNut")),
                 dataTableOutput("nut"),
-               
                 h2("Look into the CoCoQuest Data:"),
-                h4("Last Loaded CoCoQuest Data: "),
-                textOutput("lastLoadedQuest"),
-                #h4("Starttime: "),
-                #textOutput("totalStarttime"),
+                h3(textOutput("lastLoadedQuest")),
                 dataTableOutput("quest"),
-              actionButton("viewSite", "go to Views")
+              actionButton("viewSite", "go to Dashboard")
       ),