How to detect the condition in which a Shiny app is served

[pomchip]

Hi,

I would like my Shiny app to know whether it is served by:

1. Rstudio in a RStudio panel
2. Rstudio in a web browser tab
3. Any remote server

Using an interactive() call returns TRUE for options 1 and 2, and FALSE for 3... how can I distinguish between 1 and 2?

Thanks

library(shiny)

ui <- bootstrapPage(  
  verbatimTextOutput('condition')
)
server <- function(input, output) {  
  output$condition <- renderPrint({ interactive() }) 
}

shinyApp(ui = ui, server = server)

[barret]

Give the code below a try:

rstudioMode <- tryCatch({
    rstudioapi::versionInfo()$mode
  },   
  error = function(e) {
    "not_found"
  }
)

The code is wrapped in a tryCatch as versionInfo likes to throw if it is not in RStudio.

[pomchip]

Thanks

I will give this a try.

[pomchip]

Hi @barret

rstudioMode has the same value (that is 'server') in cases 1 and 2 described in my original post. So, this has the same problem as interactive().