R/get_game_events.R

In LIKANblk/eyelinesOnline: Eyelines Online

get_game_events <- function(file_edf, filename){
  
  file_to_save <- paste(gsub("[[:digit:]]+.r2e", '', filename), "long_fix_game_events_in_", gsub('/.+/',"",filename), '.txt', sep="")
  
  ans <- load.one.eye(file_edf)
  lines <- ans$events$message
  sRate <- 1000
  first_sync <- ans$sync_timestamp
  ball.choose <- sapply(str_filter(lines, ".+\"ballSelect\".+time += ([[:digit:]]+)"), function(i) (as.numeric(i[[2]]) - first_sync)/sRate)
  ball.move <- sapply(str_filter(lines, ".+\"ballMove\".+time += ([[:digit:]]+)"), function(i) (as.numeric(i[[2]]) - first_sync)/sRate)
  fixations <- sapply(str_filter(lines, "^fixation.+time += ([[:digit:]]+)"), function(i) (as.numeric(i[[2]]) - first_sync)/sRate)
  
  DF <- rbind(data.frame(type='choose', time=ball.choose), data.frame(type='move', time=ball.move), data.frame(type='fix', time=fixations))
  DF <- DF[order(DF$time, -as.numeric(DF$type)),]
  
  ball_choose_long_fixations <- number_of_evs(DF, "choose")
  ball_move_long_fixations <- number_of_evs(DF, "move")
  
  
  write(c( paste("ball_choose_long_fixations =", ball_choose_long_fixations),
           paste("ball_move_long_fixations =", ball_move_long_fixations)),
        file = file_to_save)
  l <- list(ball.choose = ball.choose, ball.move = ball.move)
  l
}