Tan Ho tanho63

	``` r
	print(pi)
	#> [1] 3.141593
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	``` r
	print(pi)
	#> [1] 3.141593
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	``` r
	print(pi)
	#> [1] 3.141593
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	``` r
	print(pi)
	#> [1] 3.141593
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	``` r
	print(pi)
	#> [1] 3.141593
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	``` r
	print("pie")
	#> [1] "pie"
	```

	<sup>Created on 2025-09-19 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>

	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({