缺少参数的简单闪亮代码

Question

我刚刚开始使用 Shiny，并且一直在使用数据集来尝试获得一些经验。我已经为相当多的迭代重新编写了一个简单的代码，并不断收到 ...argument is missing 且没有默认值。有人看到我错过了什么吗？

ui.R
=============================
library(shiny)

shinyUI(
  pageWithSidebar(

    headerPanel("Simple Cluster Example"),

    sidebarPanel(   
      numericInput("var", "Cluster:", 2,
                   min = 2, max = 5, step = 1)),

    mainPanel(
      plotOutput("plot"),  
      #dataTableOutput("table")
    )
  )
)
-------------------------------

server.R
===============
library('shiny')
library('ggplot2')
shinyServer(function(input, output) {  


  protein <- read.csv("protein.csv")
  vars.to.use <- colnames(protein) [-1]
  pmatrix <- scale(protein[,vars.to.use])
  pcenter <- attr(pmatrix, "scaled:center")
  pscale <- attr(pmatrix, "scaled:scale")
  d <- dist(pmatrix, method="euclidean")
  pfit <- hclust(d, method="ward.D")

  # This code is triggered whenever the drop-down menu is changed in the UI
  component <- input$var
  #rect.hclust(pfit, k=component)
  groups <- cutree(pfit, k=component)
  princ <- prcomp(pmatrix)
  nComp <- 2
  project <- predict(princ, newdata=pmatrix) [,1:nComp]
  project.plus <- cbind(as.data.frame(project),
                        cluster=as.factor(groups),
                        country=protein$Country)
  p <- ggplot(project.plus, aes(x=PC1, y=PC2)) +
    geom_point(aes(shape=cluster))+geom_text(aes(label=country), hjust=0, vjust=1)

  output$plot <- renderPlot({print(p)})


})

Answer 1

你的问题是：

plotOutput("plot"),  

当您以“，”结尾时（因为您在后面注释掉了该行），它需要一个新参数。但在你的情况下它是空的，所以删除额外的“，”。