0

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

我已经搜索了一个多星期，尝试了很多东西都无济于事。我试过了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)
4

1 回答 1

0

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

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))
于 2016-07-26T19:00:07.427 回答