取决于输入的条件 y 轴标签

Question

我正在尝试根据输入更改 y 轴标签。 我正在使用 dygraphs 和 Shiny。我的猜测是

input$type

不正确，但我不确定......

if (input$type== 'Power'){
  dygraph(TempData, main = "Battery Data") %>%
  dyAxis("y", label = "Watts")
}
if (input$type== 'Current'){
  dygraph(TempData, main = "Battery Data") %>%
  dyAxis("y", label = "Amps")
  }
dygraph(TempData, main = "Temperature") %>%
dyAxis("y", label = "Temp (C)")
  
      
  })

})

Answer 1

Solved!  The fix is below:

      if (colnames(Data1xts$Watts) == "Watts"){
        dygraph(TempData, main = "Battery Data") %>%
        dyAxis("y", label = "Watts (W)")
      }
    if (colnames(Data1xts$Volts) == "Volts"){
      dygraph(TempData, main = "Battery Data") %>%
      dyAxis("y", label = "Volts (V)")
    }
    else 
      dygraph(TempData, main = "Battery Data") %>%
      dyAxis("y", label = "Temp (C)")

  })

})