是否可以在Rmarkdown文档中使用and : shiny设置主机和端口？

---
title: "Shiny App in RMarkdown"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
library(shiny)

shinyApp(
  ui = fluidPage(
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        sliderInput("obs", "Number of observations:", min = 1, max = 1000, value = 500)
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  ),
  server = function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
  }
)

### 运行 Shiny 应用并设置主机和端口

要运行上述 RMarkdown 文档并设置 Shiny 应用的主机和端口，您可以使用 `rmarkdown::run` 函数，并指定 `shiny_args` 参数。

```r
library(rmarkdown)

# 运行 RMarkdown 文档，并设置 Shiny 应用的主机和端口
run("path/to/your_document.Rmd", shiny_args = list(host = "0.0.0.0", port = 1234))