シャイニーのアプリケーションでリダイレクト

Question

シャイニーのアプリを別のページにリダイレクトしようとしています。私はhttrを使ってGETリクエストを送信し、ユーザーがログインしているかどうかを確認します。もしそうでなければ、彼を別のリンクにリダイレクトしたいと思います。

R/Shinyのみを使用しても、追加のライブラリが必要ですか？

サンプル：

library(httr) 
library(shiny) 
shinyServer(function(input, output) { 
rv <- reactiveValues() 
rv$mytoken = session$request$token 

observeEvent(input$button1, { 
    rv$a <- GET("my.url:3405/authtoken", 
       add_headers(
       .headers = c("token" = rv$mytoken) 
      )) 
    if (rv$a$status_code == 200) { 
    } else { 
    # redirect magic 
    } 
}) 
} 

shinyUI(fluidPage(
    actionButton(button1, "btn") 
)) 

Answer 1

ここ

これはtrue

library(shiny) 

jscode <- "Shiny.addCustomMessageHandler('mymessage', function(message) {window.location = 'http://www.google.com';});" 

ui <- fluidPage(
    tags$head(tags$script(jscode)),  
    checkboxInput("Redirect","Redirect",value = T) 
) 

server <- function(input, output, session) { 

    observeEvent(input$Redirect,{ 
    if(!input$Redirect){ 
     session$sendCustomMessage("mymessage", "mymessage") 
    } 
    }) 
} 

shinyApp(ui,server)