fix load_matrix function

R/load_matrix.R

@@ -36,6 +36,7 @@ load_matrix <- function(design_table, path, my_formula) {
         path = path
     ))
     design_table$count_files <- selected_files
+    design_table <- design_table[, !names(design_table) %in% c("prefix")]
     sample_table <- dplyr::rename(design_table,
         sampleName = sample,
         fileName = count_files
@@ -49,6 +50,7 @@ load_matrix <- function(design_table, path, my_formula) {
         sample_table[[my_col]] <- as.factor(sample_table[[my_col]])
     }
     sample_table <- sample_table[, c("sampleName", "fileName", "condition")]
+    sample_table$condition <- as.factor(sample_table$condition)
     dds_input <- DESeq2::DESeqDataSetFromHTSeqCount(
         sampleTable = as.data.frame(sample_table),
         directory = ".",