R/restructure_tapping_data.R

In nelsonroque/surveydolphinr: Scoring and Summarizing of Cognitive task data from an early variant of the Mobile Monitoring of Cognitive Change Project (M2C2) platform.

#' RM2C2: Scoring, Summarizing

#' @name restructure_tapping_data
#' @export
restructure_tapping_data <- function(df, nontap_cols = c(1:17), tap_col = c(18)) {
  restructured <- data.frame()
  for(row in 1:nrow(df)){
    row.values.nontap <- df[row,nontap_cols]
    row.values.tap <- df[row,tap_col]
    row.values.tap.v <- c(as.character(row.values.tap[,1]))
    
    # make vals $tap_values more generic
    vals <- strsplit(unlist(strsplit(row.values.tap$tap_values,"\\+")),"_")
    vals.df <- data.frame(t(sapply(vals,c)))
    names(vals.df) <- c("tap_x","tap_y","a", "b", "c", "d")
    vals.df$tap_number <- seq(1,nrow(vals.df),1)
    export.row <- cbind(row.values.nontap,vals.df)
    restructured <- rbind(restructured,export.row)
  }
  
  restructured <- restructured %>%
    mutate(tap_x = as.numeric(as.character(tap_x)),
           tap_y = as.numeric(as.character(tap_y)))
  
  return(restructured)
}