@Param 水管工不与高图表一起工作 - R

Question

我在管道工API中的参数在hcaes highcharts中不起作用。我收到dplyr错误。

我需要使用@param选择一列。类似df24hr[，partit24hr]，但返回错误。

我的代码。。。

#* Return interactive plot
#* @serializer htmlwidget
#* @param partic24h Tipo de particulado
#* @get /hist24hr

function(partic24h = 'pts'){

equipamentos_ser <- dbGetQuery(con, sql_ser)

equipamentos <- dbGetQuery(con, sql_eq)


equipamentos_ser$date <- as.POSIXct(equipamentos_ser$date)

equipamentos_ser$idequip <- as.factor(equipamentos_ser$idequip)  
df24hrs <-  merge(x = equipamentos_ser[,-1] %>% timeAverage(., avg.time = "15 min", type = "idequip", fill = TRUE),
y = equipamentos)

options(scipen = 13)

df24hrs$datestamp <- datetime_to_timestamp(df24hrs$date)

hchart(df24hrs, type = "scatter",
hcaes(x = datestamp,
y = df24hrs[,partic24h],
group = nome)) %>%
hc_xAxis(type = "datetime", tickmarkPlacement = "on", 
title = list(text = 'Horário da Medição'),
dateTimeLabelFormats = list(day = '%H:%M:%S')) %>%
hc_yAxis(title = list(text = paste(partic24h)),
opposite = FALSE, labels = FALSE) %>%
hc_tooltip( pointFormat = 'Hora Medição: {point.x:%Y-%m-%d %H:%M:%S} <br>
Valor Medido = {point.y: .4f}')


}

错误：

<error/dplyr:：：mutate_error>mutate()输入y出现问题。x目标"df24小时"i输入CCD_ 3是CCD_。回溯：

1. plumb(文件="hist24hr/hist24hr.R"($run((
2. base:：.handleImpleError(…(
3. dplyr:：：h(simpleError(消息，调用((<.getNamespace(pkg(中的simpleError：tipo/comprimento inválido(symbol/0(na alocação de vetor>

Answer 1

任何不依赖于函数参数的东西都应该在函数范围之外定义，除非您想为每次对API的调用重新查询数据库。

水管工.R

con <- ???
sql_ser <- ???
sql_eq <- ???
options(scipen = 13)
equipamentos_ser <- dbGetQuery(con, sql_ser)
equipamentos <- dbGetQuery(con, sql_eq)
equipamentos_ser$date <- as.POSIXct(equipamentos_ser$date)
equipamentos_ser$idequip <- as.factor(equipamentos_ser$idequip)  
df24hrs <-  merge(x = equipamentos_ser[,-1] %>% timeAverage(., avg.time = "15 min", type = "idequip", fill = TRUE), y = equipamentos)
df24hrs$datestamp <- datetime_to_timestamp(df24hrs$date)
#* Return interactive plot
#* @serializer htmlwidget
#* @param partic24h Tipo de particulado
#* @get /hist24hr
function(partic24h = 'pts'){

hchart(df24hrs, type = "scatter",
hcaes(x = datestamp,
y = df24hrs[,partic24h],
group = nome)) %>%
hc_xAxis(type = "datetime", tickmarkPlacement = "on", 
title = list(text = 'Horário da Medição'),
dateTimeLabelFormats = list(day = '%H:%M:%S')) %>%
hc_yAxis(title = list(text = paste(partic24h)),
opposite = FALSE, labels = FALSE) %>%
hc_tooltip( pointFormat = 'Hora Medição: {point.x:%Y-%m-%d %H:%M:%S} <br>
Valor Medido = {point.y: .4f}')


}

Answer 2

@BrunoTremblay类似的结构与GGPLOT。。。参数"partit"(pm10(是我的数据集中的列的名称。。

#* @serializer htmlwidget
#* @param partic Tipo de particulado
#* @get /serialtime
function(partic = 'pm10'){
equipamentos_ser <- dbGetQuery(con, sql)

ggplot(equipamentos_ser) +
geom_line(aes(x = date, y = equipamentos_ser[,partic], colour = idequip), size = 1) +
theme_solarized()

在Highcharts中不起作用y=equipamentos_ser[，partit]。。我在Plotly上测试了它，它成功了。我认为问题出在Highcharts