在shinyApp（）调用中display.mode ='showcase' - 没有显示代码

Question

我希望能够在使用shinyApp()函数调用的app运行中使用display.mode ='showcase'。根据文档，我应该能够通过runApp()参数传递options的任何参数。展示模式工作（窗口被拆分）但它不显示代码。有趣的是，如果我运行runExample("01_hello")，一切正常。我正在使用闪亮的1.0.5。

代码：

library(shiny)

ui <- fluidPage(

  titlePanel("Sample App"),

  sidebarLayout(
    sidebarPanel(
      selectInput("data", label = "Data set",
                  choices = c("mtcars", "iris"))
    ),

    mainPanel(
      tableOutput("table")
    )
  )
)

server <- function(input, output) {

  data <- reactive({
    get(input$data, 'package:datasets')
  })

  output$table <- renderTable({
    head(data())
  })

}

shinyApp(ui, server, options = list(display.mode = 'showcase'))

输出：

Answer 1

我遇到了同样的问题。我有app.R文件，并使用记事本创建了DESCRIPTION文件，但无法使用代码部署shinyApp。然后我从shiny\examples\01_hello复制了DESCRIPTION文件并注意到了这一点：

原来我的文件有TXT扩展名，所以Shiny没有把它作为元数据文件读取。一旦我使用了正确的描述文件（您可以使用记事本进行编辑），一切都很顺利。

Answer 2

您当前的工作目录是什么？如果工作目录未设置为包含应用程序代码的文件夹，则似乎会出现此问题。

Answer 3

这更像是Gus_est的答案的附录，因为我有同样的问题，无法从那里直接运行。

在您的app.R文件所在的目录中创建一个文件，例如一个txt文件。使用 Debian控制文件格式将要使用的显示模式写入文件。在我们的情况下，看起来像这样（Title不是必需的）：

Title: My App
DisplayMode: Showcase

然后重命名文件DESCRIPTION，而不提供文件结尾。忽略警告。

现在运行该应用程序时，它将始终处于显示模式“ showcase”，您只能在runApp()语句中覆盖它。因此，我发现该文档具有误导性。