Shiny 闪亮的应用程序--如何在启动时抑制函数和渲染？

我用RStudio开发了一个闪亮的应用程序，它接受输入，搜索查找表，然后返回一个值。在用户点击提交按钮之前，不应执行搜索。但是，在启动时，应用程序会自动执行并返回查找表中的第一组值。在最初的搜索之后，应用程序完全按照预期工作。是否可以抑制此初始搜索（或具有默认值），并仅在按下提交按钮时执行搜索？我无法呈现可复制的代码，但以下是我的输入（server.R）和用户界面（ui.R）代码的结构：

#server.R代码段
输出$Word一种方法是将
actionButton
替换为
submitButton
，并在
if
语句中包装任何组件。下面是一个简单的示例，用于显示一个仅从

require（闪亮）
runApp（列表(
ui=页面带边框(
headerPanel（“操作按钮测试”），
侧栏面板(
数值输入（“n”，“n:”，最小值=0，最大值=100，值=50），
br（），
动作按钮（“goButton”，“Go！”），
p（“单击按钮以更新主面板中显示的值。”）
),
主面板(
逐字输出（“nText”）
)
),
服务器=功能（输入、输出）{
输出$nText=1）{
#使用isolate（）避免对输入$n的依赖
隔离（输入$n）
}
})
}
)
)

#server.R snippet
output$Word <- renderText({
    predictWord <- input$gram
    predict.function(predictWord)   #User-defined function in global.r file
    })


#ui.R snippet

tabPanel("Word Prediction",
     sidebarPanel(
     textInput("gram", "Enter up to three words"),
     submitButton("Predict")),

mainPanel(
    h4("Word Prediction"),
    textOutput("predictWord")))

require(shiny)
runApp(list(
  ui = pageWithSidebar(
    headerPanel("actionButton test"),
    sidebarPanel(
      numericInput("n", "N:", min = 0, max = 100, value = 50),
      br(),
      actionButton("goButton", "Go!"),
      p("Click the button to update the value displayed in the main panel.")
    ),
    mainPanel(
      verbatimTextOutput("nText")
    )
  ),
  server = function(input, output){
    output$nText <- renderText({
      # Take a dependency on input$goButton
      if(input$goButton >= 1){

        # Use isolate() to avoid dependency on input$n
        isolate(input$n)
      }
    })
  }
  )
  )