andreas/prioritized.grouping
1
0
Fork 0
mirror of https://github.com/agdamsbo/prioritized.grouping.git synced 2025-09-12 02:29:40 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updated

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-10-10 13:25:09 +02:00
parent ea768fbba1
commit 1851904408
No known key found for this signature in database
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
app/server.R
View file

@ -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)) class(out) <- c("prioritized_groups_list", class(out))
return(out) invisible(out)
} }
@ -219,12 +222,15 @@ prioritized_grouping <-
grouping_plot <- function(data, grouping_plot <- function(data,
columns = NULL, columns = 4,
overall = FALSE, overall = FALSE,
viridis.option="D", viridis.option="D",
viridis.direction=-1) { 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 ## 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) df <- utils::read.csv(file = file, na = consider.na)
} else if (ext %in% c("xls", "xlsx")) { } else if (ext %in% c("xls", "xlsx")) {
df <- openxlsx2::read_xlsx(file = file, na.strings = consider.na) df <- openxlsx2::read_xlsx(file = file, na.strings = consider.na)
} else if (ext == "dta") {
df <- haven::read_dta(file = file)
} else if (ext == "ods") { } else if (ext == "ods") {
df <- readODS::read_ods(file = file) df <- readODS::read_ods(file = file)
} else { } else {