diff --git a/app/server.R b/app/server.R
index 82a1a64..f9e63c8 100644
--- a/app/server.R
+++ b/app/server.R
@@ -22,6 +22,9 @@ utils::globalVariables(c("group", "grp", "i", "j", "value"))
 
 
 
+
+
+
 
 
 
@@ -197,7 +200,7 @@ prioritized_grouping <-
 
     class(out) <- c("prioritized_groups_list", class(out))
 
-    return(out)
+    invisible(out)
   }
 
 
@@ -219,12 +222,15 @@ prioritized_grouping <-
 
 
 
+
+
+
 
 
 
 
 grouping_plot <- function(data,
-                          columns = NULL,
+                          columns = 4,
                           overall = FALSE,
                           viridis.option="D",
                           viridis.direction=-1) {
@@ -302,8 +308,9 @@ grouping_plot <- function(data,
 
 
 
-plot.prioritized_groups_list <- function(data, ...) {
-  grouping_plot(data, ...)
+
+plot.prioritized_groups_list <- function(x, ...) {
+  grouping_plot(x, ...)
 }
 
 ## Helper function for Shiny
@@ -344,8 +351,6 @@ read_input <- function(file, consider.na = c("NA", '""', "")) {
         df <- utils::read.csv(file = file, na = consider.na)
       } else if (ext %in% c("xls", "xlsx")) {
         df <- openxlsx2::read_xlsx(file = file, na.strings = consider.na)
-      } else if (ext == "dta") {
-        df <- haven::read_dta(file = file)
       } else if (ext == "ods") {
         df <- readODS::read_ods(file = file)
       } else {