Shiny 仪表板，带两个侧板和一个 plot

Question

我正在尝试获取一个 Rshiny 代码以在左侧显示两个面板（一个用于文件输入，另一个用于动作图）和一个 plot 在右侧，但我收到以下错误：

Error in match.arg(position) : 'arg' must be NULL or a character vector

这是代码：

library(shiny)
library(pheatmap)

# Define UI for dataset viewer app ----
ui <- fluidPage(

           # App title ----
       titlePanel("plot"),

# Sidebar layout with input and output definitions ----
   sidebarLayout(

# Sidebar panel for inputs ----
   sidebarPanel("Sidebar panel",

  # Input: Selector for choosing dataset ----
  fileInput("file1", "Choose CSV File",
              accept = c(
                "text/csv",
                "text/comma-separated-values,text/plain",
                ".csv")
    ),
    tags$hr(),
    checkboxInput("header", "Header", TRUE)
),

   # tags$hr(),

     sidebarPanel('get heatmap',
             actionButton('getHmap', 'get heatmap')
),

# Main panel for displaying outputs ----
mainPanel("Plot",
          #column(6, 
             plotOutput("themap"),
             tableOutput("table.output"))
          #)
    )

 )


server = function(input, output, session) {
  a <- reactive({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL)
tbl <- read.csv(inFile$datapath, header=input$header) #, sep=input$sep,  dec = input$dec)
return(tbl)
  })

  output$table.output <- renderTable({
    a()
  })

  plotdata <- eventReactive(input$getHmap, {
    a <- as.matrix(a()[-1])
    row.names(a) <- a()$ID
    a[is.na(a)] <- 0
    a
   })

  output$themap = renderPlot({ 
    pheatmap(plotdata())
  })
}

shinyApp(ui, server)

我是 Rshiny 的新手。 有人可以帮我找出这个问题的原因吗？