r-我如何在Shiny中创建一个弹出框来获取输入数据，然后在我的Shiny应用程序中继续

Question

我有一个应用程序，我想在弹出对话框中提前提问，回答问题，让方框消失，然后运行我的应用程序。

我已经找了一个多星期了，尝试了很多事情都无济于事。我只试过readline()。我看过ShinyBS，但没有一个例子起作用。我已经调查了tcltk2。虽然我没有得到任何错误，但没有发生任何事情，包括没有对话框。

下面是我想做的一个简单的例子

假设我只想要一个弹出框来问："你叫什么名字？"？

输入名称后，框关闭，应用程序开始运行。也许应用程序现在会显示"你好，名字"。

请帮我更新下面的代码。

library(shiny)
library(tcltk2)
library(shinybs)
#Create pop up box asking name. Then substitute this value into XXX below.
ui <- shinyUI(fluidPage(
   # Application title
   titlePanel("Hello XXX, how are you?")

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

   })

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

为了完整起见，下面是我编写的代码。这是从猪排引用的链接中收集到的。它是有效的，尽管有些部分我仍然不理解。

library(shiny)
Logged = FALSE;
ui1 <- function(){
  tagList(
    div(id = "login",
        wellPanel(textInput("name", "Name"),
                  br(),actionButton("submit", "Submit"))),
    tags$style(type="text/css", "#login {font-size:10px;   text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}")
  )}
ui2 <- function(){fluidPage(
  # Application title
  titlePanel({
    fluidRow(column(12,
            textOutput("greeting")))

            })
)}

ui = (htmlOutput("page"))
server = (function(input, output,session) {
  USER <- reactiveValues(Logged = Logged)
  observe({ 
    if (USER$Logged == FALSE) {
      if (!is.null(input$submit)) {
        if (input$submit > 0) {
          Username <- isolate(input$name)
          if (length(Username) > 0 ) {
            USER$Logged <- TRUE
          }
        } 
      }
    }    
  })
  observe({
    if (USER$Logged == FALSE) {
      output$page <- renderUI({
        div(class="outer",do.call(bootstrapPage,c("",ui1())))
      })
    }
    if (USER$Logged == TRUE) 
    {
      output$page <- renderUI({
        div(class="outer",do.call(fluidPage,ui2()))
      })
      print(ui)
    }
  })
  output$greeting <- renderText({
    print(paste("Hello, how are you", " ", input$name,"?", sep = ""))
    })
})
runApp(list(ui = ui, server = server))