소개

RStudio 서버에서 Shiny 앱을 만들고 있습니다. shinyApp(ui, server) 런타임시 앱이 다른 윈도우에서 일어나는 상태를 바꾸고 싶다고 생각했는데, runGadget 옵션으로 ① 다이얼로그에서의 표시, ② 페인(Rstudio 서버 내의 영역)에서의 표시, ③다른 탭에서의 표시 수 있었다. Shiny - runGadget 를 참고했다.

이하에 코드와 실행 결과를 나타낸다. 실행 하는 bs4Dash 샘플 앱.

bs4Dash.R

library(bs4Dash)
ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      box(plotOutput("plot1", height = 250)),

      box(
        title = "Controls",
        sliderInput("slider", "Number of observations:", 1, 100, 50)
      )
    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}

shinyApp(ui, server)

① 대화

샘플 앱의 실행 명령을 다음과 같이 변경.

dialog.R

# shinyApp(ui, server)
runGadget(ui, server, viewer = dialogViewer("Dialog Title", width = 1200, height = 600))

실행 결과는 다음 GIF와 같다.

②페인

샘플 앱의 실행 명령을 다음과 같이 변경.

pane.R

# shinyApp(ui, server)
runGadget(ui, server, viewer = paneViewer(minHeight = 500))

실행 결과는 다음 GIF와 같다.

③별 탭

샘플 앱의 실행 명령을 다음과 같이 변경.

tab.R

# shinyApp(ui, server)
runGadget(ui, server, viewer = browserViewer(browser = getOption("browser")))

실행 결과는 다음 GIF와 같다.