得到响应报头变量闪亮

Question

我的Apache通过LDAP登录到可变X-远程用户在标题：

，但我不知道如何得到它的闪亮的应用程序。有任何想法吗？也许解决方案可能是一些Java脚本？

Answer 1

好吧，我解决了它。首先包括在ui.R js函数：

function requestLogin() { 
var client = new XMLHttpRequest(); 
client.open("GET", "yourshinyhostname", true); 
client.send(); 
client.onreadystatechange = function() { 

var resposne = client.getResponseHeader("X-Remote-User"); 
Shiny.onInputChange("getLogin", resposne); 
}; } 

然后，您可以通过点击按钮获取例如X-远程用户值：

ui.R：

includeScript("www/js/getLogin.js") , uiOutput("login_btn") , verbatimTextOutput("text")

server.R：

output$login_btn <- renderUI({ 

    HREF <- sprintf(' 
        <button id="get_login_btn" value="test" onclick="requestLogin();" > 
        <font color="black"> 
        <i class="fa fa-user"></i> Get login 
        </font> 
        </button> 
        ') 
HTML(HREF) 
}) 

jsOutput <- reactive({ 
    input$getLogin 
}) 

output$text <- renderPrint({ 
    jsOutput() 
})