브라우저에 따라 반짝 반짝 빛나는 출력

Question

내 반짝이는 앱이 인터넷 익스플로러에서 제대로 작동하지 않아이 브라우저에는 앱이 표시되지 않습니다.

브라우저를 발견 할 수있는 방법을 알고 있습니까?

예 :

if(browser = IE){  
    "use Mozilla, chrome or safari"}  
else{ 
    run my app} 

감사합니다! 하나 주어지면

루이스

Answer 1

session$request는 HTTP_USER_AGENT 값을 포함한다. 아마도 브라우저를 사용하여 어떤 브라우저가 사용 중인지 알아낼 수 있습니다.

library(shiny) 
runApp(list(
    ui = bootstrapPage(
    textOutput("text") 
), 
    server = function(input, output, session) { 
    myReactives <- reactiveValues(ua = session$request$HTTP_USER_AGENT) 
    output$text <- renderText({ 
     myReactives$ua 
    }) 
    } 
))