小编Lei*_*rew的帖子

我正在尝试使用Shiny构建逐步的应用程序。我的目标是创建一个由数据库中编写的一堆问题组成的考试。我需要的是“下一个”按钮，当您单击另一个问题时，该按钮就会显示出来。

我一直在尝试使用“操作按钮”，但是它仅在第一次使用时有效，也就是说，第一次单击时会出现一个问题，但是第一次单击时它就变得不可点击（我希望有一个“下一个按钮”）。

这是代码：

Server.R：

library(xlsx)
data<-read.xlsx("data/base.xlsx",sheetName="Full1")

shinyServer(function(input, output) {

  data[,2]<-as.character(data[,2])

  question<-data[2,2]

  ntext <- eventReactive(input$goButton, {
    question
  })

  output$nText <- renderText({
     ntext()
  })  
})

ui.R：

shinyUI(pageWithSidebar(
  headerPanel("Exam"),
  sidebarPanel(
    actionButton("goButton", "Next"),
    p("Next Question")
  ),
  mainPanel(
    verbatimTextOutput("nText")
  )
))

非常感谢。