Error when trying to run Shiny code - Please help!


I am getting the following error when I try to run a line of code:

Error in shinyApp(ui = ui, server = server) : object 'server' not found

I am very new to programming to I apologize ahead of time for any simple mistakes

Here is all of my code:

At a high level, we want to create a scatter plot, where the user can select what is the x axis and the y axis of the scatter plot.

The size and color will be represented by the year attribute, and the user will be able to choose one of the following (for the x and the y axis):


The file is: "" and store it in the tb dataframe

tb <- read.csv('')

First, remove na's from iso2

tb = tb[!$iso2),]

Now create the dataframe 'tbCan', which is the iso2 for canada (CA)

tbCan = tb[tb$iso2=="CA",]

We will need the imputeTS package (only install if needed)


Now we can use 'na_interpolation for new_sp_m014

tbCan2 = tb[tb$iso2=="CA",]
tbCan$new_sp_m014 = na_interpolation(tbCan2$new_sp_m014)

Create the User Interface of our shiny app

Define the sidebarPanel, which is two choices (use 'selectInput'), one for the x axis of the scatter plot, and the other is the y axis for the scatter plot. (make sure to library shiny).

sidePanel <- sidebarPanel(
    selectInput(inputId = "y", label = "y axis",
                c("new_sp_m014", "new_sp_f014", "new_sp_m65", "new_sp_f65")))

Create the mainPanel to show the scatter plot.

mainPanel <-  mainPanel(

Define UI for application (called ui)

Use a 'fluidPage' using the sidebarLayout, and your sidePanel and mainPanel

ui <- fluidPage(

    # Application title
    titlePanel("Exploring Data"),

    # Sidebar with a slider input for number of bins 

         #add the slider
          selectInput(inputId = "x",label = "x axis",
                      c("new_sp_m014", "new_sp_f014", "new_sp_m65", "new_sp_f65")
        # Show a plot of the generated distribution

Now let's define the server

Use ggplot to render a scatter plot, using the tbCan dataframe, the input for the x-axis and the input for the y-axis.

Store the results in the 'server' variable

server <- function(input, output) {

    output$distPlot <- renderPlot({
        ggplot(data = tbCan, aes_string(x=input$x, y=input$y)) + geom_point() + theme_bw()

Now run the shiny App

# Run the application 
shinyApp(ui = ui, server = server)

Update: I am no longer getting the error code. But now when I try to run the shiny app, I am not seeing a scatterplot. I am only seeing the option to select y axis and x axis from dropdown menus. It feels like I am getting closer. Still looking for advice on this. Thanks!

It looks like your output is named "distPlot", so update the mainPanel to match. Does this solve it?


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

If you have a query related to it or one of the replies, start a new topic and refer back with a link.