help to display an histogram from text input value

[jip31]

Hello
I try to update an histogram from the value entered in a input text
The value correspond to "mpg" field from the mtcars.csv file
something like this

  
  ui <- fluidPage(
    textInput("caption", "Caption", "Data Summary"),
    verbatimTextOutput("value")
  )
  
  server <- function(input, output) {
    output$value <- renderPlot({ input$caption })
    data <- read.csv("mtcars.csv", header=TRUE)
    value    <- data$mpg
    
    # draw the histogram with the specified number of bins
    hist(value, breaks = bins, col = 'green', border = 'white', xlab = 'mpg value', main = 'Histogram of JP', axes = TRUE, plot = TRUE)
  })
  
  shinyApp(ui, server)
}

Is anybody can help please?