在应用下方的展示模式下启动闪亮的应用

Question

我有一个像这样的DESCRIPTION文件的闪亮应用

Title: My app
Author: Jon Hill
AuthorUrl: https://ipardalis.com
DisplayMode: Showcase
Tags: R, Panther Chameleon, blog
Type: Shiny

启动时，代码显示在应用程序旁边。但是，我喜欢单击“显示以下”后在应用程序下方的外观。有没有一种方法可以让应用从该状态启动而不是默认状态，默认状态在右侧显示您的应用代码？

这是一个用于测试的基本应用程序：

## app.R ##
server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100)
    ),
    mainPanel(plotOutput("distPlot"))
  )
)

shinyApp(ui = ui, server = server)

Answer 1

我认为我使用Dean Attali的shinyjs软件包找到了一个优雅的解决方案：

ui.R

useShinyjs(),

server.R

shinyjs::runjs('toggleCodePosition();')

一旦我检查了按钮并发现它正在运行的js代码，就非常简单了。