library(shiny)
myApp <- function(...) {
  
  ui <- fluidPage(
    titlePanel("Minimal Shiny App"),
    
    mainPanel(
      div(
        style = "display: flex; align-items: center;",
        sliderInput("slider", "Slider", min = 1, max = 10, value = 5),
        tags$img(src = "logo.png", width = 200, style = "margin-left: 20px;")
      ),
      plotOutput("plot")
    )
  )
  
  server <- function(input, output) {
    output$plot <- renderPlot({
      plot(1:input$slider, type = "l", lwd = 2)
    })
  }
  
  shinyApp(ui = ui, server = server, ...)
}
myApp()

library(devtools)
load_all()
myApp()

runApp()

# 在我之前使用了一次runApp()之后
myApp()

一个好的方法是“创建一个包含一个R Shiny应用程序的包”。
让我们将这个包命名为“rabbit”。这是我建议的文件和文件夹布局：

你不需要拥有上面列出的所有文件/文件夹。
现在让我们看看与你的问题相关的重要目录。
### `R/`
这是项目文件夹根目录中的一个目录（在上面的`NAMESPACE`后面列出）。
将所有业务逻辑放在这里。这些是可以从你的包中导出的函数。
这与应用程序无关。
它还将包含 `run_rabbit.R`，这是一个运行你的应用程序的函数。
```r
# 运行 rabbit Shiny 应用程序
# 
# @export
run_rabbit <- function() {
  # 你可以在这里为你的应用程序设置选项，例如：
  # 增加文件上传大小到 1GB：
  # options(shiny.maxRequestSize = 1e3 * 1024^2)
  
  app_dir <- system.file("app", package = "rabbit")
  if (app_dir == "") {
    stop(
      "无法找到应用程序目录。请尝试重新安装 `rabbit`。",
      call. = FALSE
    )
  }
  setwd(app_dir)
  shiny::shinyAppDir(appDir = ".")
}

tags$link(rel = "stylesheet", href = "styles.css")

tags$img(
  src = file.path('img', 'rabbit-logo.svg')
)

devtools::load_all()
run_rabbit()

<details>
<summary>英文:</summary>
A good approach would be &quot;Create a package which contains an R Shiny app&quot;.
Let&#39;s call the package &quot;rabbit&quot;. This is my suggested file &amp; folder arrangement:

You don't need to have all the files/folders listed above.
Now let's look at the important directories in regards to your question.
### `R/`
This is the one at the root of the project folder (listed after `NAMESPACE` above).
Put all the business logic there. These are the functions which can be exported from your package.
These have nothing to do with the app.
It will also contain `run_rabbit.R` which is a function to run your app.
```r
#' Run the rabbit shiny app
#' 
#' @export
run_rabbit <- function() {
  # You can set options for your app here, eg.
  # Increase file upload size to 1GB:
  # options(shiny.maxRequestSize = 1e3 * 1024^2)
  
  app_dir <- system.file("app", package = "rabbit")
  if (app_dir == "") {
    stop(
      "Could not find the app directory. Try re-installing `rabbit`.",
      call. = FALSE
    )
  }
  setwd(app_dir)
  shiny::shinyAppDir(appDir = ".")
}

tags$link(rel = "stylesheet", href = "styles.css")

tags$img(
  src = file.path('img', 'rabbit-logo.svg')
)

devtools::load_all()
run_rabbit()