Get data from influxdb 0.9+ into R. Might be turned into a package since influxdb-R is obselete.

read-influxdb.r

# MIT licence - https://tldrlegal.com/license/mit-license
# Arthur Flam - Lookies - 2015

library(httr)
library(rjson)

HOST = "ip.ip.ip.ip"
PORT = "8086"
PROTOCOL = "http"
DATABASE = "test_db"
PASSWORD = "password"
USER = "user"
query = "SELECT * FROM measurement WHERE time > now() - 12h GROUP BY tag ORDER BY asc"

query = URLencode(gsub(pattern=" ", replacement="+", x=query))
url = paste0(PROTOCOL, "://",HOST,":",PORT,"/query?db=",DATABASE,"&p=",PASSWORD,"&q=",query,"&u=",USER,"&time_precision=s")
r = GET(url)
data <- fromJSON(rawToChar(r$content))
series = response_data$results[[1]]$series


data = sapply(series, function(serie){
  name = serie$name          # "measurement"
  tags = serie$tags          # "client", "country", ...
  columns = serie$columns    # "time", "ask", "bid", "etc"
  values = serie$values[[1]] # time, values
  out = c(tags$client, values)
  names(out) = c("client", columns)
  return(out)
})
df = as.data.frame(t(data))