SHINY greyed out on server but not locally

My SHINY app works fine locally but turns grey after upload to the

Others have posted about this "grayed out" issue and I have utilized the possible solutions (e.g. adding timeout parameters, using full directory paths, etc). My code for global, ui and server are below. The APP is intended to plot uploaded data as a scatter-plot onto a static area chart that is specified in the global script.

Any advice?

------CODE FOLLOWS------

##### GLOBAL:  #####
statewide<-structure(list(Domain = c("Cement", "Cement", "Cement", "Cement"), Group =         
c("Charlatans", "Charlatans", "Charlatans", "Charlatans"), Percentile = c("80th", "60th", "40th", 
"20th"), PL1 = c(135L, 123L, 113L, 92L), PL15 = c(91L, 79L, 70L, 51L), PL2 = c(69L, 52L, 39L, 24L), 
PL25 = c(55L, 36L, 23L, 10L), PL3 = c(46L, 28L, 15L, 2L), PL35 = c(42L, 26L, 12L, -3L), PL4 = 
c(40L, 26L, 9L,-6L), PL45 = c(39L, 23L, 7L, -10L), PL5 = c(38L, 23L, 8L, -11L), PL55 = c(35L, 21L, 9L, -7L), PL6 = c(29L, 19L, 9L, -4L)), row.names = c(NA, -4L), class = "data.frame")



# prepare data for background area chart
aref <- statewide  # this is normally a read.csv statement

aref_g1<-aref %>% filter(Group=="Charlatans")  # full app will have multiple groups
               measure.vars=c("PL1"  ,"PL15","PL2","PL25","PL3", "PL35","PL4","PL45" ,"PL5","PL55","PL6"))

 df$pl_axis<-ifelse(df$variable=="PL1",1,ifelse(df$variable=="PL15",1.5, (df$variable=="PL2",2, ifelse(df$variable=="PL25",2.5,    ifelse(df$variable=="PL3",3,  (df$variable=="PL35",3.5, ifelse(df$variable=="PL4",4, ifelse(df$variable=="PL45",4.5,  (df$variable=="PL5",5, ifelse(df$variable=="PL55",5.5, ifelse(df$variable=="PL6",6,NA)))))))))))

  geom_area(data=df, aes(pl_axis,value,group=Percentile,fill=df$Percentile), 
        alpha=.4, position = "dodge")}

##### UI for app #####

headerPanel("Visualize Your ACCESS Data"),# title
    fileInput("file1", "Choose CSV File",  # Input: Select a file ----
            multiple = TRUE,
            accept = c("text/csv","text/comma-separated-values,text/plain",".csv")),
  checkboxInput("header", "Header", TRUE),# Input: Checkbox if file has header
  # Input: Select separator ----
  radioButtons("sep", "Separator",
               choices = c(Semicolon = ";",
                           Comma = ",",Tab = "\t"),
               selected = ","),
  tags$hr(),          # add a Horizontal line 
  # Input: Select what to display
  selectInput("dataset","Data:",choices=list(iris="iris",uploaded_file="inFile"), selected = NULL),
  selectInput("x_axis","X-axis:", choices = NULL),
  selectInput("y_axis","Y-axis:", choices = NULL)  
),       # end sidebarPanel ;  place last parentheses of a section on a new line!

# mainPanel must be called inside the sidebarLayout function
  plotOutput("finalplot")  # quoted object is named in server code
)  # end mainPanel

  ) # end sideBarLayout

###### SERVER #########

# shiny server side code for each call
server<-(function(input, output, session){
 #update variable and group based on dataset
if(!exists(input$dataset)) return() #make sure upload exists
updateSelectInput(session, "x_axis", choices = var.opts)
updateSelectInput(session, "y_axis", choices = var.opts)

  })   # end `observe`

  #get data object

    # set uploaded file
      inFile <- input$file1
      if (is.null(inFile))    return(NULL)
      #do I need to store in a reactiveValues object?
           header = input$header,
           sep = input$sep)
})     # end `upload data`

    })      # section end

if(!exists(input$dataset)) return() # if no upload

check<-function(x){is.null(x) || x==""}
if(check(input$dataset)) return()
    obj<-list(data=get(input$dataset),   # get the dataset and then choose the inputs
          x_axis=input$x_axis,y_axis=input$y_axis    )

    #require all to be set to proceed
    if(any(sapply(obj,check))) return()
#make sure choices had a chance to update
  !all(c(obj$x_axis,obj$y_axis) %in% colnames(obj$data))

    if(check(obj)) return()  


  })     # end `get data`

#plotting function using ggplot2
output$finalplot<-renderPlot({     # the object "finalplot" must be referenced in the ui

plot.obj<-get_data()     # is this creating a blank object to fill?

# conditions for plotting
if(is.null(plot.obj)) return()
if(plot.obj$x_axis == "" | plot.obj$y_axis=="")  return(NULL)

#  plot.obj$x_axis<-as.numeric(plot.obj$x_axis)
#  plot.obj$y_axis<-as.numeric(plot.obj$y_axis)

#plotting theme
#.theme<- theme(axis.line = element_line(colour = 'gray', size = .75), 
#  panel.background = element_blank()    )


                mapping=aes(x= plot.obj$x_axis, 
                            y= plot.obj$y_axis ))  #read.csv might be issue with NAs

  labs(x= input$x_axis,             ### I want the points to display over the area chart
       y=input$y_axis )+


  })  # end renderPlot

  output$plot <- renderUI({plotOutput("finalplot")  })

# Create Shiny app ----
shinyApp(ui, server) # this MUST be the last line of code!

If the app has greyed out because of an error, this will likely be reflected in the log. Can you access the log for your deployed app?

Thanks @nirgrahamuk, I've looked at the logs and forgot to include. Here it is:

2020-02-05T20:33:58.477190+00:00 shinyapps[1751748]:
2020-02-05T20:33:58.477191+00:00 shinyapps[1751748]: filter, lag
2020-02-05T20:33:58.477191+00:00 shinyapps[1751748]:
2020-02-05T20:33:58.478556+00:00 shinyapps[1751748]:
2020-02-05T20:33:58.700317+00:00 shinyapps[1751748]:
2020-02-05T20:33:58.700319+00:00 shinyapps[1751748]: Listening on
2020-02-05T20:33:58.478554+00:00 shinyapps[1751748]: The following objects are masked from ‘package:base’:
2020-02-05T20:33:58.478555+00:00 shinyapps[1751748]:
2020-02-05T20:33:58.478555+00:00 shinyapps[1751748]: intersect, setdiff, setequal, union
2020-02-05T20:33:59.746540+00:00 shinyapps[1751748]: Warning: Error in force: object 'ui' not found
2020-02-05T20:33:59.750243+00:00 shinyapps[1751748]: 66: force
2020-02-05T20:33:59.750244+00:00 shinyapps[1751748]: 65: uiHttpHandler
2020-02-05T20:33:59.750245+00:00 shinyapps[1751748]: 64: shinyApp
2020-02-05T20:33:59.750389+00:00 shinyapps[1751748]: Error in force(ui) : object 'ui' not found
2020-02-05T20:36:28.187353+00:00 shinyapps[1751748]: Server version: 1.7.8-7
2020-02-05T20:36:28.187355+00:00 shinyapps[1751748]: LANG: en_US.UTF-8
2020-02-05T20:36:28.187385+00:00 shinyapps[1751748]: R version: 3.5.1
2020-02-05T20:36:28.187386+00:00 shinyapps[1751748]: shiny version: 1.4.0
2020-02-05T20:36:28.187387+00:00 shinyapps[1751748]: httpuv version: 1.5.2
2020-02-05T20:36:28.187387+00:00 shinyapps[1751748]: rmarkdown version: (none)
2020-02-05T20:36:28.187387+00:00 shinyapps[1751748]: knitr version: (none)
2020-02-05T20:36:28.187388+00:00 shinyapps[1751748]: jsonlite version: 1.6
2020-02-05T20:36:28.187403+00:00 shinyapps[1751748]: RJSONIO version: (none)
2020-02-05T20:36:28.187403+00:00 shinyapps[1751748]: htmltools version: 0.4.0
2020-02-05T20:36:28.344224+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.187574+00:00 shinyapps[1751748]: Using pandoc at /opt/connect/ext/pandoc2
2020-02-05T20:36:28.337249+00:00 shinyapps[1751748]: Using jsonlite for JSON processing
2020-02-05T20:36:28.344226+00:00 shinyapps[1751748]: Starting R with process ID: '25'
2020-02-05T20:36:28.682870+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.682872+00:00 shinyapps[1751748]: Attaching package: ‘dplyr’
2020-02-05T20:36:28.682873+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.683593+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.683592+00:00 shinyapps[1751748]: The following objects are masked from ‘package:stats’:
2020-02-05T20:36:28.683594+00:00 shinyapps[1751748]: filter, lag
2020-02-05T20:36:28.683594+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.684945+00:00 shinyapps[1751748]: The following objects are masked from ‘package:base’:
2020-02-05T20:36:28.684945+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.684946+00:00 shinyapps[1751748]: intersect, setdiff, setequal, union
2020-02-05T20:36:28.684946+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.998514+00:00 shinyapps[1751748]:
2020-02-05T20:36:28.998517+00:00 shinyapps[1751748]: Listening on
2020-02-05T20:36:37.509292+00:00 shinyapps[1751748]: Warning: Error in force: object 'ui' not found
2020-02-05T20:36:37.512748+00:00 shinyapps[1751748]: 66: force
2020-02-05T20:36:37.512749+00:00 shinyapps[1751748]: 65: uiHttpHandler
2020-02-05T20:36:37.512749+00:00 shinyapps[1751748]: 64: shinyApp
2020-02-05T20:36:37.512882+00:00 shinyapps[1751748]: Error in force(ui) : object 'ui' not found
2020-02-05T20:36:49.828098+00:00 shinyapps[1751748]: Warning: Error in force: object 'ui' not found
2020-02-05T20:36:49.830189+00:00 shinyapps[1751748]: 66: force
2020-02-05T20:36:49.830190+00:00 shinyapps[1751748]: 65: uiHttpHandler
2020-02-05T20:36:49.830191+00:00 shinyapps[1751748]: 64: shinyApp
2020-02-05T20:36:49.830344+00:00 shinyapps[1751748]: Error in force(ui) : object 'ui' not found
© 2017 RS

It seems like you are using separate ui and server files, if that is the case you shouldn't include this line. That command is used when you use a single app.R file.

1 Like

This is a little mysterious because your code as provided above, had errors which stopped me running locally until fixed. once I fixed I was able to run locally, and deploy to , suffering no grey-out or error in log.

Let me point out the issues I had, maybe it will get us close to solving your problem.

The first thing I noticed, is

df$pl_axis<-ifelse(df$variable=="PL1",1,ifelse(df$variable=="PL15",1.5, (df$variable=="PL2",2, ifelse(df$variable=="PL25",2.5,    ifelse(df$variable=="PL3",3,  (df$variable=="PL35",3.5, ifelse(df$variable=="PL4",4, ifelse(df$variable=="PL45",4.5,  (df$variable=="PL5",5, ifelse(df$variable=="PL55",5.5, ifelse(df$variable=="PL6",6,NA)))))))))))

you have omitted ifelse function calls between at PL35 and PL5
use of case_when() function, would likely be more elegant.
in this particular case where you scan for digits, and they map to a clear algorithmic pattern something very concise like this can be used:

df$num<-str_extract(df$variable, "[[:digit:]]+") %>% as.integer()
df$pl_axis <- ifelse(df$num>10,df$num/10,df$num)

finally and perhaps importantly, rsconnect::setAccountInfo() function call is in there, which it should not be... this shouldnt be embedded in a script that you deploy. rather it should be put into your console before you deploy, or in a script that you use to deploy another script.

to show that I deployed your app without grey-outs, please find:

@nirgrahamuk Thanks very much! Can you advise on why the points will not display as a scatter-plot on the area chart? I upload these points to test the graph:

structure(list(Initial.Reading.Proficiency = c(3.2, 2.5, 2.9,
3.7, 3.6, 4.2, 3.6, 4), Reading.Scale.Score.Change = c(50, 40,
50, 50, 30, 20, 50, 40)), row.names = c(NA, -8L), class = "data.frame")

Hi, as we are switching from solving a shiny problem to a plotting problem, i would ask that you start a new thread, abstracting away from shiny and focusing on your plot creation as much as possible. providing minimum data and minimal code to produce only the plot and nothing else. I think you will get faster/better response to help you along if you are able to do this.

just needed to replace aes with aes_string

You should be aware that aes_string() is soft deprecated, so will be removed from future versions of ggplot2:

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.