R/obsisReadingFuncs.R

In jonkeane/mocapGrip: Illusion-Grip Motion Capture Package

#################### functions ####################

#converts timecodes into seconds
timeToSecs <- function(time, fps = 30){
  hms<- lubridate::hms(substr(time,0,8))
  out <- lubridate::period_to_seconds(hms) + (as.numeric(substr(time,10,12))+1)*(1/fps)
  return(out)
}


markerRead <- function(file,beginTime=0,endTime=600,verbose=FALSE) {
  Time..sec. <- NULL # to get rid of note errors
  if(verbose){
    print(file)
    print(beginTime)
    print(endTime)
  }
  file <- utils::read.csv(file, sep="\t", na.strings = c("NA","NaN")) # travis on linux can't find this file.
  out <- subset(file, Time..sec. >=beginTime & Time..sec. <=endTime )
  return(out)
}


ffmpegDurParse <- function(ffmpegout){
  # extract the line with duration in it, and then turn extract the time
  durline <- ffmpegout[grepl(".*Duration: (.*), start.*", ffmpegout)]
  if(length(durline)>0){
    dur <- gsub(".*Duration: (.*), start.*","\\1", durline)
    # split on colons, delist
    dur <- as.numeric(strsplit(dur, ":")[[1]])
    # turn hours, min, sec.msec into seconds
    dur <- dur[1]*60*60+dur[2]*60+dur[3]
  } else {
    warning("ffmpeg couldn't find any lines with a duration.")
    dur <- NA
  }
  dur
}

videoLength <- function(file){
  call <- paste("ffprobe", file, "2>&1", sep=" ")
  length <- tryCatch({

    ffmpegout <- system(call, intern=TRUE)

    return(ffmpegDurParse(ffmpegout))
  }, error=function(cond) {
    message(paste(call, "does not seem to exist."))
    # message("Here's the original error message:") # the details caused errors when testing
    # message(cond)                                 # the details caused errors when testing
    # Choose a return value in case of error
    return(NA)
  }, warning=function(cond) {
    message(paste(call, "had a warning."))
    # message("Here's the original error message:") # the details caused errors when testing
    # message(cond)                                 # the details caused errors when testing
    return(NA)
#     # ffmpeg throws a warning when there is no output, maybe change the call to something else?
#     suppressWarnings({
#       ffmpegout <- system(call, intern=TRUE)
#     })
#     return(ffmpegDurParse(ffmpegout))
  })
}


# returns the max that is not infinity for when the mocap data returns infinty
maxNotInf <- function(vector, ...){
  vector <- ifelse(is.infinite(vector),NA,vector)
  max(vector, ...)
}

# returns the min that is not infinity for when the mocap data returns (negative) infinty
minNotInf <- function(vector, ...){
  vector <- ifelse(is.infinite(vector),NA,vector)
  min(vector, ...)
}