From 168d5cf7b1420a36fd1a5f92d4f59919156f984f Mon Sep 17 00:00:00 2001
From: "Carlos R. Mercado" <107061601+charlieflipside@users.noreply.github.com>
Date: Tue, 6 Sep 2022 11:07:17 -0400
Subject: [PATCH] fix

Legit reached out to my RStudio contact to get this added to their docs lol.
---
 eoa/global.R | 3 +--
 eoa/server.R | 5 -----
 eoa/ui.R     | 3 +--
 3 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/eoa/global.R b/eoa/global.R
index 06dbd8a..73af160 100644
--- a/eoa/global.R
+++ b/eoa/global.R
@@ -8,8 +8,7 @@ library(shroomDK)
 # gitignored - get your own ShroomDK key from Flipside Crypto!
 # for local deployments read your own api_key, for RConnect deployments rely on manual setting of environment variable
 
-ifelse(file.exists('api_key.txt'),api_key <- readLines("api_key.txt"), "")  
-
+api_key <- ifelse(file.exists('api_key.txt'),api_key <- readLines("api_key.txt"), Sys.getenv('api_key'))  
 
 #423E75 # dark purple
 #CECBF5 # light purple
diff --git a/eoa/server.R b/eoa/server.R
index a35b6bd..082fba0 100644
--- a/eoa/server.R
+++ b/eoa/server.R
@@ -23,11 +23,6 @@ shinyServer(function(input, output, session) {
       x$date <- as.Date(x$DAY_)
       results$table <- x
     }
-    
-  })
-  
-  observeEvent(input$test, {
-  updateTextInput(session, 'address', label = Sys.getenv('api_key'))
   })
   
   eoa_stats <- reactive({
diff --git a/eoa/ui.R b/eoa/ui.R
index a61ba78..17c098f 100644
--- a/eoa/ui.R
+++ b/eoa/ui.R
@@ -51,8 +51,7 @@ shinyUI(fluidPage(
                           textInput(inputId = "address", 
                                     label = NULL,
                                     placeholder = "enter a full address (non-ens)", 
-                                    width = '400px')),
-                      actionButton('test',"test")
+                                    width = '400px'))
                ),
                column(3, class = 'light', id = "go-button", 
                       style = "border-width: 1px 0 1px 0;",