Running ‘testthat.R’ [5s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(flowTraceR)
  > 
  > test_check("flowTraceR")
  [ FAIL 9 | WARN 26 | SKIP 0 | PASS 143 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_conversion.R:160:3'): convert_proteingroups with MaxQuant output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR::convert_proteingroups(input_df = data, software = "MaxQuant") at test_conversion.R:160:3
   2. │ └─flowTraceR:::sort_string_pg(...)
   3. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   4. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:178:3'): convert_proteingroups with PD output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR::convert_proteingroups(input_df = data, software = "PD") at test_conversion.R:178:3
   2. │ └─flowTraceR:::sort_string_pg(...)
   3. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   4. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:196:3'): convert_proteingroups with DIA-NN output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR::convert_proteingroups(input_df = data, software = "DIA-NN") at test_conversion.R:196:3
   2. │ └─flowTraceR:::sort_string_pg(...)
   3. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   4. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:214:3'): convert_proteingroups with Spectronaut output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR::convert_proteingroups(input_df = data, software = "Spectronaut") at test_conversion.R:214:3
   2. │ └─flowTraceR:::sort_string_pg(...)
   3. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   4. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:239:3'): convert_all_levels with MaxQuant output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR::convert_all_levels(...) at test_conversion.R:239:3
   2. │ └─flowTraceR:::sort_string_pg(...)
   3. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   4. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:260:3'): convert_all_levels with PD output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
       ▆
    1. ├─flowTraceR::convert_all_levels(input_df = data, software = "PD") at test_conversion.R:260:3
    2. │ └─... %>% convert_precursor(software = "PD")
    3. ├─flowTraceR::convert_precursor(., software = "PD")
    4. │ ├─"Annotated Sequence" %in% colnames(input_df)
    5. │ └─base::colnames(input_df)
    6. │   └─base::is.data.frame(x)
    7. ├─flowTraceR::convert_modified_peptides(., software = "PD")
    8. │ ├─"Annotated Sequence" %in% colnames(input_df)
    9. │ └─base::colnames(input_df)
   10. │   └─base::is.data.frame(x)
   11. ├─flowTraceR::convert_proteingroups(., software = "PD")
   12. │ └─flowTraceR:::sort_string_pg(...)
   13. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   14. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:278:3'): convert_all_levels with DIA-NN output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
       ▆
    1. ├─flowTraceR::convert_all_levels(input_df = data, software = "DIA-NN") at test_conversion.R:278:3
    2. │ └─... %>% convert_precursor(software = "DIA-NN")
    3. ├─flowTraceR::convert_precursor(., software = "DIA-NN")
    4. │ ├─"Precursor.Id" %in% colnames(input_df)
    5. │ └─base::colnames(input_df)
    6. │   └─base::is.data.frame(x)
    7. ├─flowTraceR::convert_modified_peptides(., software = "DIA-NN")
    8. │ ├─"Precursor.Id" %in% colnames(input_df)
    9. │ └─base::colnames(input_df)
   10. │   └─base::is.data.frame(x)
   11. ├─flowTraceR::convert_proteingroups(., software = "DIA-NN")
   12. │ └─flowTraceR:::sort_string_pg(...)
   13. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   14. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_conversion.R:296:3'): convert_all_levels with Spectronaut output is succesful ──
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
       ▆
    1. ├─flowTraceR::convert_all_levels(input_df = data, software = "Spectronaut") at test_conversion.R:296:3
    2. │ └─... %>% convert_precursor(software = "Spectronaut")
    3. ├─flowTraceR::convert_precursor(., software = "Spectronaut")
    4. │ ├─"EG.PrecursorId" %in% colnames(input_df)
    5. │ └─base::colnames(input_df)
    6. │   └─base::is.data.frame(x)
    7. ├─flowTraceR::convert_modified_peptides(., software = "Spectronaut")
    8. │ ├─"EG.PrecursorId" %in% colnames(input_df)
    9. │ └─base::colnames(input_df)
   10. │   └─base::is.data.frame(x)
   11. ├─flowTraceR::convert_proteingroups(., software = "Spectronaut")
   12. │ └─flowTraceR:::sort_string_pg(...)
   13. │   └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   14. └─base::unlist(., .data, use.names = FALSE)
  ── Error ('test_utils.R:44:3'): sort_string_pg is succesful ────────────────────
  Error in `unlist(., .data, use.names = FALSE)`: 'recursive' must be a length-1 vector
  Backtrace:
      ▆
   1. ├─flowTraceR:::sort_string_pg(...) at test_utils.R:44:3
   2. │ └─input_df %>% dplyr::select(!!as.symbol(sort_column)) %>% ...
   3. └─base::unlist(., .data, use.names = FALSE)
  
  [ FAIL 9 | WARN 26 | SKIP 0 | PASS 143 ]
  Error: Test failures
  Execution halted