ggplot .data pronoun shiny

ggplot-data-pronoun-shiny.R

library(shiny)
library(ggplot2)
ui <- fluidPage(
  selectInput("var", choices = names(mtcars),label = "choose column"),
  br(),
  plotOutput("plot")
)

server <- function(input, output, session) {
  output$plot <- renderPlot({
    mtcars |> 
      ggplot(aes(x = .data[[input$var]])) + 
      geom_histogram()
  })
}

shinyApp(ui, server)