如果语句在闪亮的server.R中不起作用

Question

我使用闪亮来绘制不同时间序列的降水和温度。

ui.R

shinyUI(fluidPage(

  # Application title
  titlePanel("Parametres"),

  plotOutput(outputId = "main_plot", height="500px"),

  hr(),

  fluidRow(
    column(4,
       selectInput(inputId = "Cellule",label = "Cellule:",choices = c(17,1404,2478,2792,3842,6103,7714,8442,8642),selected = 7714),
       selectInput(inputId = "Variable",label = "Variable:",choices = c("Ptot", "TEMP"),selected = "Ptot")
    ),
  )
))

这是我的server.R代码的一部分，它不起作用：

server.R

shinyServer(function(input, output, p. = p) {

output$main_plot <- renderPlot({  

....

if(input$Variable =="TEMP")
{
  Obs_inter$value <- Obs_inter$value-273.15
  Sim25_inter$value <- Sim25_inter$value-273.15
  Sim_1_inter$value <- Sim_1_inter$value-273.15
  Sim_2_inter$value <- Sim_2_inter$value-273.15

  ymin <- min(Obs_inter$value, Sim25_inter$value, Sim_1_inter$value, Sim_2_inter$value)
  ytitle <- "TEMP (°C)"
} else {
  if(input$Variable=="Ptot")
  {
    ymin <- 0
    ytitle <- "Ptot (mm)"
  }
}

p <- ggplot()

....

})

})

使用Obs，Sim25，Sim_1和Sim_2我的时间序列。

当我运行我的代码时，这是我得到的错误：

"Cannot find ymin"

所以带有if语句的循环不起作用。我试图选择ymin = 0之前（没有if语句），我有我想要的东西。我不明白的是我之前有另一个if语句（不是输入$ Variable而是另一个输入）并且它有效。

我尝试打印输入$ Variable来查看它返回的内容，但我不知道该怎么做..

感谢您的帮助！