functional w/ calendar

have to renderUI to make charts slide down

eoa/global.R

@@ -1,10 +1,11 @@
+
+library(shinyjs)
 library(ggplot2)
 library(dplyr)
 library(plotly)
 library(jsonlite)
 library(httr)
 library(shroomDK)
-library(shinyjs)
 # gitignored - get your own ShroomDK key from Flipside Crypto!
 api_key <- readLines("api_key.txt")
 

eoa/server.R

@@ -63,8 +63,8 @@ shinyServer(function(input, output, session) {
    plot_()
   })
  
- output$heatmap <- renderPlotly({
-   plot_tx(results())
+ output$heatmap <- renderUI({
+   renderPlotly(plot_tx(results()))
  })
   
 })

eoa/ui.R

@@ -67,13 +67,17 @@ shinyUI(fluidPage(
       div(
         class = 'chart-block',
         div(class = 'chart-title', span('Your ETH Activity')),
-        div(class = 'chart', 
+        div(class = 'chart',
+              div(class = 'heat',
+              conditionalPanel("input.submit > 0",
+                                   uiOutput('heatmap')) 
+            ),
             fluidRow(
-          column(3,
-            conditionalPanel("input.submit > 0",
-                                  div(class = 'eoa-tbl',
-                                      uiOutput('compare'))
-            )
+              column(3,
+                     conditionalPanel("input.submit > 0",
+                                      div(class = 'eoa-tbl',
+                                          uiOutput('compare'))
+                     )
           ),
           column(9,
                    plotlyOutput("main_plot")

eoa/www/styles.css

@@ -3,6 +3,9 @@
 /*PUT CUSTOM CLASSES HERE*/
 /*******************/
 
+.eoa-tbl {
+  margin-top: 30%;
+}
 
 .eoa-btn {
   padding-right: 30px;