Question

我知道有关此主题的common mistakes讨论。我尝试过添加或删除ID，标签和逗号的各种组合，我似乎无法弄清楚我的代码有什么问题。

现在我的应用程序没有做任何实质性的事情，我只是想设置它。现在，预期的行为是它运行，允许用户输入任何文本，点击提交按钮，然后返回“你好世界！”

server.R代码：

library(shiny)
shinyServer(   
  function(input, output) {
   output$results <- renderText({
              "hello world!"           
              }) 
  }
)

ui.R代码：

library(shiny)
shinyUI(fluidPage(
   titlePanel("Title goes here."),
   sidebarLayout(
      sidebarPanel(
      helpText("Enter a few words, then select 'submit'!"),
      textInput("input"),
      submitButton("submit", label = "submit"),
   ),
mainPanel(
  textOutput("results")
  )
)
))

实际行为在浏览器上返回此错误：

ERROR: argument "label" is missing, with no default

R控制台中出现此错误：

> shiny::runApp()

Listening on http://127.0.0.1:4635
Error in label %AND% tags$label(label, `for` = inputId) : 
  argument "label" is missing, with no default
Error in label %AND% tags$label(label, `for` = inputId) : 
  argument "label" is missing, with no default

任何有关调试闪亮应用程序的一般建议都将非常感谢！

Answer 1

textInput需要一个标签而submitButton没有。

试试这个：

  textInput("input", "A Label"),
  submitButton("submit")

此外，您在submitButton之后还有一个逗号。

不幸的是，我也很新R，我没有调试Shiny App的建议。

Answer 2

您可以在服务器部分使用browser()命令调试R Shiny。执行将在这里停止

Ui.R

2 个答案: