I am missing two lines for this Shiny App to work. I'm having issue with the ui main panel I believe. I am trying to get the graph shown below, but my code for R doesn't work yet. What I am missing?

library(tidyverse)

library(shiny)

diamonds%>%

select(carat,price,x,y,z) -> diamonds1

diamonds1

ui <- fluidPage(

titlePanel("Frequency Plots"),

)

server <- function(input, output) {

output$plot <- renderPlot({

ggplot(diamonds, mapping = aes(x = .data[[input$DVvar]], color = cut)) +

geom_freqpoly(binwidth = 0.1) +

ggtitle("frequency polygons")

})

}

shinyApp(ui = ui, server = server)