watchme_combine_results: Combine objects with same pictures but different codes
In masalmon/watchme: Analysis of Autographer Images Annotations

Description Usage Arguments Details Value Examples

Combine objects with same pictures but different codes

1	watchme_combine_results(results_list, common_codes = c("non codable"))

`results_list`	a list of `tibble` created by `watchme_prepare_data`.
`common_codes`	One or several codes that are common between the objects.

The motivation was to create a single object based on several coding files in the CHAI project: each pass/group of codes such as cooking and travel resulted in one file, and we want to combine them.

Forcommon_codes codes, the annotation are merged: if an image has such a code in an object and not in the other, the code is assigned to the image in the resulting object. The code does not look for conflicts.

A tibble with

participantID Name or ID number of the participant (character)
image_time Path or name of the image in order to be able to identify duplicates (character)
image_time Time and date of each image (POSIXt)
booleanCodes columns of boolean, indicating if a given code was given to a given picture. codes is a condensed form of this.
the attribute dico tibble for defining the codes with at least Code and Meaning column, possibly Group column for having groups of codes (e.g. sport encompasses running and swimming)

passes <- c("CK", "IO", "OP", "PM", "TP")

create_pass_results <- function(pass){
  path_results <- system.file('extdata', paste0("oneday_", pass, ".csv"),
  package = 'watchme')
  sep_results <- "\t"
  path_dico <-  system.file('extdata', paste0("dico_coding_2016_01_", pass, ".csv"),
   package = 'watchme')
  sep_dico <- ';'

  results <- watchme_prepare_data(path_results = path_results,
                                  sep_results = sep_results,
                                  path_dico = path_dico,
                                  sep_dico = sep_dico,
                                  tz = "Asia/Kolkata")
  results$image_path <- gsub('\"', "", results$image_path)
  results
}

results_list <- purrr::map(passes, create_pass_results)
oneday_results <- watchme_combine_results(results_list,
common_codes = "non_codable")
oneday_results