Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("ngstk")
  Loading required package: ngstk
  function (hander_data, config_input, defined_col, index, extra_params = list(na_replace = NULL, 
      na_replace_flag = TRUE)) 
  {
      flag <- extra_params$na_replace_flag
      na_replace <- extra_params$na_replace
      if (!is.null(flag) && !flag) {
          return(hander_data)
      }
      if (is.null(na_replace)) {
          na_replace <- get_config_value(config_input, defined_col, 
              "na_replace")
      }
      if (!is.null(na_replace)) {
          index <- is.na(hander_data[, index])
          if (any(index)) {
              hander_data[index, index] <- na_replace
          }
      }
      return(hander_data)
  }
  <environment: namespace:ngstk>
  function (hander_data, config_input, extra_params = list(gene_5 = 1, 
      gene_3 = 2, left_gene = NULL, right_gene = NULL, fusions_anyfull_match_flag = TRUE)) 
  {
      left_gene <- extra_params$left_gene
      right_gene <- extra_params$right_gene
      gene_5 <- extra_params$gene_5
      gene_3 <- extra_params$gene_3
      flag <- extra_params$fusions_anyfull_match_flag
      if (!is.null(flag) && !flag) {
          return(hander_data)
      }
      if (!is.null(left_gene) && !is.null(right_gene)) {
          index_1 <- str_detect(hander_data[, gene_5], sprintf("^%s$", 
              left_gene))
          index_2 <- str_detect(hander_data[, gene_3], sprintf("^%s$", 
              right_gene))
          index_3 <- str_detect(hander_data[, gene_5], sprintf("^%s$", 
              right_gene))
          index_4 <- str_detect(hander_data[, gene_3], sprintf("^%s$", 
              left_gene))
          return(hander_data[(index_1 & index_2) | (index_3 & index_4), 
              ])
      }
      else {
          return(hander_data)
      }
  }
  <bytecode: 0x5607860ccef0>
  <environment: namespace:ngstk>
  1. Error: merge_table_files (@test_g_file.R#20) --------------------------------
  names do not match previous names
  1: merge_table_files(files_dir = tempdir(), pattern = ".*.a$", outfn = outfn) at testthat/test_g_file.R:20
  2: rbind(result, result.tmp)
  3: rbind(deparse.level, ...)
  4: match.names(clabs, names(xi))
  5: stop("names do not match previous names")
  
  testthat results ================================================================
  OK: 77 SKIPPED: 0 FAILED: 1
  1. Error: merge_table_files (@test_g_file.R#20) 
  
  Error: testthat unit tests failed
  Execution halted