示例数据

当然，在创建与Shiny相关的问题时，在问题“how to make a great R reproducible example”的答案中提到的关于样本数据的所有准则也适用。确保运行代码时不需要其他文件。使用mtcars之类的示例数据集，或者使用data.frame()创建一些示例数据。如果数据非常复杂，并且确实需要这种复杂性来说明问题，则也可以使用dput()。避免使用read.csv()之类的函数，除非您对fileInput之类的函数有疑问。

示例代码

始终将代码减少到最低限度，以重现错误或意外行为。这包括删除对其他.CSS文件和.js文件的调用，以及删除ui和server中不必要的函数。
优秀的应用程序通常由两个或三个文件组成（ui.R，server.R，可能还有global.R），例如this demo application。然而，最好将代码作为一个脚本发布，这样其他人就可以轻松地运行它，而不必手动创建这些文件。

• 用ui <- fluidPage(…) Package 你的UI，
• 具有server <- function(input,output, session) {…}的服务器，
• 并且随后调用shinyApp(ui, server)。

因此，一个简单的 backbone 可以像下面这样开始：

library(shiny)

ui <- fluidPage(

  )

server <- function(input,output,session) {

}

shinyApp(ui, server)

工作示例

因此，考虑到以上所有因素，一个良好的Minimal、Complete和Verifiable应用程序示例应该如下所示：

library(shiny)

df <- data.frame(id = letters[1:10], value = seq(1,10))

ui <- fluidPage(
  sliderInput('nrow', 'Number of rows', min = 1, max = 10, value = 5),
  dataTableOutput('my_table')
  )

server <- function(input, output, session) {
  output$my_table <- renderDataTable({
    df[1:input$nrow,]
  })
}

shinyApp(ui, server)

添加CSS

如here所述，有多种方法可以将自定义CSS添加到Shiny应用程序中。在一个可重现的示例中，将CSS添加到Shiny应用程序中的首选方法是将CSS添加到代码中，而不是单独的文件中。这可以通过在应用程序的ui中添加一行来完成，例如：

tags$head(tags$style(HTML('body {background-color: lightblue;}'))),