R/get_results_fs.R

In antonmalko/ibextor: Easy preprocessing of Ibex data

get_results_fs <- function(file_name,
                           elem_number = NULL,
                           del_col = NULL, del_mode = "auto",
                           col_names = NULL, partial_names = TRUE,
                           col_classes = NULL, partial_classes = TRUE,
                           short_subj_ids = TRUE,
                           ...){

  #' @rdname get_results
  #' @export

  if (is.null(col_names)){
    col_names <- c("sentence")
  }

  if (is.null(col_classes)){
    col_classes <- c("character")
  }

  res <- read_ibex(file_name, ...)
  res <- subset_ibex(res, controller = "FlashSentence", elem_number = elem_number)

  res <- res[, 1:8]

  res <- format_ibex(res,
                     col_names = col_names, partial_names = partial_names,
                     col_classes = col_classes, partial_classes = partial_classes)
  res <- recode_subjects(res, short_ids = short_subj_ids)
  res <- delete_columns(res, del_col, del_mode)
  return(res)
}