R 通过actionbutton打开新的空白闪亮ui

我的目标是创建一个ShinyApp，每当用户单击submitButton时，它就会打开一个新的空UI

目前这是我下面的代码。如果用户在文本框中键入内容并按Submit。该应用程序显示用户在主面板中键入的内容。但是我不想看到文本，而是当用户单击submit按钮时，它会打开一个新的空UI

ui = shinyUI(fluidPage(
  titlePanel("submitButton example"),
  fluidRow(
    column(3, wellPanel(

      textInput("text", "Text:", "text here"),
      submitButton("Submit")
    )),

           verbatimTextOutput("text")
    )
  )
)


server = function(input, output) {
  output$plot1 <- renderPlot({
    hist(rnorm(input$n))
  })

  output$text <- renderText({
    paste("Input text is:", input$text)
  })
}


shinyApp(ui=ui, server=server)

ui=shinyUI（fluidPage(
标题面板（“提交按钮示例”），
fluidRow(
柱（3，井面板）(
文本输入（“文本”、“文本：”、“此处文本”），
提交按钮（“提交”）
)),
逐字输出（“文本”）
)
)
)
服务器=功能（输入、输出）{
输出$plot1好吧，这还不是很实用，但可以满足您的要求

ui = shinyUI(fluidPage(
  titlePanel("submitButton example"),
  fluidRow(
    uiOutput("newWindowContent", style = "display: none;"),
    tags$script(HTML("
      $(document).ready(function() {
        if(window.location.hash != '') {
          $('div:not(#newWindowContent)').hide();
          $('#newWindowContent').show();
          $('#newWindowContent').appendTo('body');
        }
      })
    ")),
    a(href = "#NEW", target = "_blank",
      actionButton("Submit", "Submit")
    )
  ))
)


server = function(input, output) {

  output$newWindowContent <- renderUI({
    "Welcome to your new window!"
  })
}

shinyApp(ui=ui, server=server)

ui=shinyUI（fluidPage(
标题面板（“提交按钮示例”），
fluidRow(
uiOutput（“newWindowContent”，style=“display:none；”），
标记$script（HTML（“
$（文档）.ready（函数（）{
if（window.location.hash！=''）{
$（'div:not（#newWindowContent'））.hide（）；
$（'#newWindowContent'）.show（）；
$（'#newWindowContent'）。附加到（'body'）；
}
})
")),
a（href=“#新建”，target=“_blank”，
操作按钮（“提交”、“提交”）
)
))
)
服务器=功能（输入、输出）{
输出$newWindowContent我不是100%理解你所说的“空ui”，但这里有一个如何创建动态ui的示例我很确定，你不想要空页面，而是更困难的事情。你能举个例子说明新页面应该包含哪些内容，以及它们与“家长”共享哪些信息吗？