在RMarkdown和Shiny中，如何将inputPanel和renderPlot包装在一个独特的调用中

library(shiny)

ui <- fluidPage(
  inputPanel(
    textInput("input_text", "输入文本", value = ""),
    selectInput("input_option", "选择选项", choices = c("选项1", "选项2", "选项3")),
    sliderInput("input_slider", "滑动条", min = 0, max = 100, value = 50)
  ),
  plotOutput("output_plot")
)

server <- function(input, output) {
  output$output_plot <- renderPlot({
    # 在这里编写生成图形的代码
    ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
      geom_point()
  })
}

library(shiny)
library(ggplot2)

ui <- fluidPage(
  inputPanel(
    textInput("input_text", "输入文本", value = ""),
    selectInput("input_option", "选择选项", choices = c("选项1", "选项2", "选项3")),
    sliderInput("input_slider", "滑动条", min = 0, max = 100, value = 50)
  ),
  plotOutput("output_plot")
)

server <- function(input, output) {
  output$output_plot <- renderPlot({
    ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
      geom_point()
  })
}

shinyApp(ui = ui, server = server)