fix

Legit reached out to my RStudio contact to get this added to their docs lol.

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

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({

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;",