Pull multiple sensors using parallel processing

Pull data for select sensors for all 2019

library(tc.sensors)
library(dplyr)
library(magrittr)
library(furrr)
library(tictoc)

# pull sensor configuration and IDs
sensor_config <- pull_configuration()
sensor_ids <- pull_sensor_ids()

tic() # Start the timer

# set up parallel processing
future::plan(multisession)

# define date range
date_range <- seq(as.Date("2019/01/01"),
  as.Date("2019/12/31"),
  by = "days"
)

# iterate through each sensor
sensor_data <- furrr::future_map_dfr(
  sensor_ids[[1]][633:640],
  function(x) {
    # iterate through each date
    purrr::map_dfr(
      date_range,
      function(d) {
        pull_sensor(
          sensor = x,
          pull_date = d
        )
      }
    )
  }
)

tictoc::toc()

head(sensor_data)