From 5eb91ea7f0757b537dcbf8a95240004f20c57806 Mon Sep 17 00:00:00 2001
From: "Carlos R. Mercado" <107061601+charlieflipside@users.noreply.github.com>
Date: Tue, 23 Aug 2022 12:22:27 -0400
Subject: [PATCH] functional w/ calendar

have to renderUI to make charts slide down
---
 eoa/global.R       |  3 ++-
 eoa/server.R       |  4 ++--
 eoa/ui.R           | 16 ++++++++++------
 eoa/www/styles.css |  3 +++
 4 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/eoa/global.R b/eoa/global.R
index 4efa8ce..e43e7cf 100644
--- a/eoa/global.R
+++ b/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")
 
diff --git a/eoa/server.R b/eoa/server.R
index eb75601..d4b734c 100644
--- a/eoa/server.R
+++ b/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()))
  })
   
 })
diff --git a/eoa/ui.R b/eoa/ui.R
index 885a78e..fa56e35 100644
--- a/eoa/ui.R
+++ b/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")
diff --git a/eoa/www/styles.css b/eoa/www/styles.css
index b2ab513..1d6e68d 100644
--- a/eoa/www/styles.css
+++ b/eoa/www/styles.css
@@ -3,6 +3,9 @@
 /*PUT CUSTOM CLASSES HERE*/
 /*******************/
 
+.eoa-tbl {
+  margin-top: 30%;
+}
 
 .eoa-btn {
   padding-right: 30px;