R/spectrace_import_combined.R

In steffenhartmeyer/spectrace: Functions for importing and processing raw Spectrace output

#' Title
#'
#' @param lightFile
#' @param activityFile
#' @param batteryFile
#' @param tz
#' @param serial_number
#'
#' @return
#' @export
#'
#' @examples
spectrace_import_combined <- function(lightFile,
                                      activityFile = NA,
                                      batteryFile = NA,
                                      tz = NA,
                                      serial_number = NA) {
  # Get light data
  lightData <- spectrace_import_light(lightFile, tz, serial_number)

  # Import activity data
  if (!is.na(activityFile)) {
    activityData <-
      spectrace_import_activity(activityFile, tz, serial_number) %>%
      dplyr::mutate(
        unix = signal::interp1(
          as.numeric(lightData$unix),
          as.numeric(lightData$unix),
          as.numeric(.$unix),
          "nearest"
        ),
      ) %>%
      dplyr::select(unix, activity) %>%
      dplyr::ungroup()

    lightData <- lightData %>%
      dplyr::left_join(activityData, by = "unix")
  }

  # Import battery data
  if (!is.na(batteryFile)) {
    batteryData <-
      spectrace_import_battery(batteryFile, tz, serial_number)

    batteryData <- batteryData %>%
      dplyr::mutate(
        unix = signal::interp1(
          as.numeric(lightData$unix),
          as.numeric(lightData$unix),
          as.numeric(.$unix),
          "nearest"
        ),
      ) %>%
      dplyr::select(unix, battery_voltage, battery_percent, battery_isCharging) %>%
      dplyr::ungroup()

    lightData <- lightData %>%
      dplyr::left_join(batteryData, by = "unix")
  }

  return(lightData)
}