influx.r

install.packages("influxdbr")
library(dplyr)
library(influxdbr)
library(xts)


con <- influx_connection(
  scheme = c("http", "https"),
  host = "",
  port = 8086,
  user = "janek",
  pass = "haaaaaaslo-wiesz-jakie",
)

result <- influx_query(
  con,
  db = "IoF",
  query = 'SELECT time, sensorID, value FROM AirPressure LIMIT 100',
  timestamp_format = c("n", "u", "ms", "s", "m", "h"),
  return_xts = FALSE,
  chunked = FALSE,
  simplifyList = TRUE
)

result