Results file now have concentrations in numeric order, if not all rep…

…s have same concentrations.
hancockinformatics · Apr 29, 2024 · 5434dec · 5434dec
1 parent a93f361
commit 5434dec
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ABCindex
 Title: A Shiny app to calculate ABCI for checkerboard assays
-Version: 0.99.804
+Version: 0.99.805
 Authors@R:
   person(given = "Travis",
          family = "Blimkie",

diff --git a/R/3_results.R b/R/3_results.R
@@ -2006,10 +2006,12 @@ writer_xlsx <- function(x, filename) {
     df_clean <- df %>%
       select(cols_conc, rows_conc, abci_avg) %>%
       distinct(cols_conc, rows_conc, .keep_all = TRUE) %>%
-      tidyr::pivot_wider(
-        names_from = "cols_conc",
-        values_from = "abci_avg"
+      mutate(
+        cols_conc = as.numeric(as.character(cols_conc)),
+        rows_conc = as.numeric(as.character(rows_conc))
       ) %>%
+      arrange(cols_conc, rows_conc) %>%
+      tidyr::pivot_wider(names_from = "cols_conc", values_from = "abci_avg") %>%
       tibble::column_to_rownames("rows_conc")
 
     addWorksheet(wb, nm)