R：从SHINK'检索时出错；s滑块输入

我是coursera data science specialization的学生，有时我想重新创建讲师展示的示例，让我熟悉R编码等等， 现在我正在创建一个闪亮的应用程序，使用了闪亮的sliderinput和2个值，但绘图总是显示“错误：无效参数” 我发现了滑块中的错误，因为我用固定值更改了它们。它工作得很好，所以这是代码，如果我做错了什么，希望你能帮我

这就是ui.R

library(shiny)

shinyUI(fluidPage(
  titlePanel("Plot Random Number"),
  sidebarLayout(
    sidebarPanel(
      numericInput(
        "numeric",
        "How Many Random Numbers Should be Plotted",
        value = 1000,
        min = 1,
        max = 1000,
        step = 1
      ),
      sliderInput(
        "sliderX",
        "Pick minimum and maximum X values",
        min = -100,
        max = 100,
        value = c(-50, 50)
      ),
      sliderInput(
        "SliderY",
        "Pick minimum and maximum Y values",
        min = -100,
        max = 100,
        value = c(-50, 50)
      ),
      checkboxInput("show_xlab", "Show/Hide X Axis Label", value = TRUE),
      checkboxInput("show_ylab", "Show/Hide Y Axis Label", value = TRUE),
      checkboxInput("show_title", "Show/Hide plot title", value = TRUE)
    ),
    mainPanel(h3("Graph of Random Points"),
              plotOutput("plot1"))
  )
))

这就是服务器

library(shiny)
library(ggplot2)

shinyServer(function(input, output) {
  output$plot1 <- renderPlot({
    set.seed(12345)
    num.of.points <- input$numeric
    minX <- input$sliderX[1] #i know the error here
    maxX <- input$sliderX[2] #but i guess that's the right way though
    minY <- input$SliderY[1] #so is anything has changed !
    maxY <- input$sliderY[2]
    dataX <- runif(num.of.points, minX, maxX)
    dataY <- runif(num.of.points, minY, maxY)
    labx <- ifelse(input$show_xlab, "X Axis", "")
    laby <- ifelse(input$show_ylab, "Y Axis", "")
    main.title <- ifelse(input$show_title, "Title", "")
    qplot(
      x = dataX,
      y = dataY,
      xlab = labx,
      ylab = laby,
      main = main.title,
      xlim = c(-100, 100),
      ylim  = c(-100, 100)
    )
  })
})

库（闪亮）
图书馆（GG2）
shinyServer（功能（输入、输出）{
输出$plot1此处输入的变量名称错误：

哇，我想知道你怎么会注意到这一点，但非常感谢我会让你放弃投票，但不幸的是我仍然是初学者，但非常感谢你的帮助，朋友
minX <- input$sliderX[1]
maxX <- input$sliderX[2]
minY <- input$SliderY[1]
maxY <- input$sliderY[2]

minY <- input$sliderY[1]