如何通过javascript调用R闪亮的html文件？

Question

我正在尝试为R Shiny Web应用程序文件提供非常简单的密码保护。 您在下面看到的代码包含在index.html中。 在同一文件夹中有一个名为“ testflex.html”的文件。 那就是我想用密码保护的文件。 输入用户名和密码后，什么都没有发生。 但是，当我输入错误的用户名或密码时，将显示错误消息。

有什么提示吗？ （代码如下）

    function showPass(form){

        var user = form.username.value;
        var pass = form.pwd.value;

        var user1 = "admin" // this is the username
        var pass1 = "abcd1234" // this is the password

        if(user === user1 && pass === pass1){

            window.open = "testflex.html";

        }

        else{
            document.write("Wrong password or username");
        }
    }
</script>

<body>

  <form>
    Username: <input type="text" name="username" /> <br />
    Password: <input type="password" name="pwd" /> <br />
      <input type="button" value="Log In" onclick="showPass(form)" />   </form> </body>

Answer 1

有趣的主意。 关于您的问题：使用window.open("testflex.html")代替window.open = "testflex.html"; 这对我有用：

library(shiny)

openWindow <- '
Shiny.addCustomMessageHandler("resetValue", function(message) {
  window.open("new.html");
});
'

# Define UI for application that draws a histogram
ui <- shinyUI(fluidPage(

  sidebarLayout(
    sidebarPanel(
      tags$head(tags$script(HTML(openWindow))),
      selectInput("open", "Class Type:", c(FALSE, TRUE))
    ),

    mainPanel(
      textOutput("class")
    )
  )
))

server <- shinyServer(function(input, output, session) {
  global <- reactiveValues(sample = 1:9)

  observe({
    if(input$open){
      session$sendCustomMessage(type = "resetValue", message = "keyVal")
    }
  })

  output$class <- renderText({
    print(input$open)
  })
})

shinyApp(ui = ui, server = server)

如何通过javascript调用R闪亮的html文件？

问题描述

1 个解决方案

解决方案1
1 2017-01-29 23:24:29

如何通过javascript调用R闪亮的html文件？

问题描述

1 个解决方案

解决方案1 1 2017-01-29 23:24:29

解决方案1
1 2017-01-29 23:24:29