Hi @rstudionubie. Because you didn't supply the table spin_rate, I make a random table. Your code seems okay. So, the problem may due to your data spin_rate.
library(shiny)
spin_rate <- data.frame(baseline_spin = sample(1:10, 100, replace = TRUE),
Difference.Error = sample(1:10, 100, replace = TRUE),
Quintile.Base = sample(LETTERS[1:5], 100, replace = TRUE),
stringsAsFactors = FALSE)
ui <- fluidPage(
titlePanel("Dashboard"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
selectInput(inputId = "quintile", label = ("technology quintile"),
choices = unique(spin_rate$Quintile.Base)
)),
mainPanel(
plotOutput(outputId = "plot", height = "500px", width="500px")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
filtered_data<- reactive({
dplyr::filter(spin_rate, spin_rate$Quintile.Base==input$quintile)
})
output$plot <- renderPlot({
par(mar=c(1,1,1,1))
plot(x= filtered_data()$baseline_spin, y= filtered_data()$Difference.Error, type="p", xlab="Rate", ylab="Difference error")
})
}
shinyApp(ui = ui, server = server)