Commit b4a1e958 authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

more option for authenticate

parent 74b6c283
get_data <- function(x,auth) {
get_data <- function(x,...) {
db <- luftkvalr::luftkvalr()
tmp_st <- db$GetAQStations(stationIDs=x$stationObj$station_id)
tmp_ts <- db$GetAQTimeseries(stationIDs=tmp_st$ST_ID,componentName=x$elementObj$element_id)
res <- db$GetAQData(stationIDs=tmp_st$ST_ID,timeSeriesIDs=tmp_ts$TS_ID,fromDateTime=as.character(x$timeObj$fromPeriod()),toDateTime=as.character(x$timeObj$toPeriod()))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment