andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

feat: likert plot definitions

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-03-30 20:18:28 +02:00
commit 18eae4b3a3
No known key found for this signature in database
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
R/data_plots.R
View file

@ -351,7 +351,7 @@ data_visuals_server <- function(id,
shiny::observeEvent(input$act_plot, { shiny::observeEvent(input$act_plot, {
if (NROW(data()) > 0) { if (NROW(data()) > 0) {
tryCatch({ tryCatch({
parameters <- list( parameters <- list(
type = rv$plot.params()[["fun"]], type = rv$plot.params()[["fun"]],
pri = input$primary, pri = input$primary,
@ -377,7 +377,7 @@ data_visuals_server <- function(id,
# showNotification(paste0(warn), type = "warning") # showNotification(paste0(warn), type = "warning")
# }, # },
error = function(err) { error = function(err) {
showNotification(paste0(err), type = "err") showNotification(paste0(err), type = "error")
}) })
} }
}, ignoreInit = TRUE) }, ignoreInit = TRUE)
@ -600,6 +600,18 @@ supported_plots <- function() {
secondary.max = 4, secondary.max = 4,
tertiary.type = c("dichotomous"), tertiary.type = c("dichotomous"),
secondary.extra = NULL secondary.extra = NULL
),
plot_euler = list(
fun = "plot_likert",
descr = i18n$t("Likert diagram"),
note = i18n$t(
"Plot survey results"
),
primary.type = c("dichotomous", "categorical"),
secondary.type = c("dichotomous", "categorical"),
secondary.multi = TRUE,
tertiary.type = c("dichotomous", "categorical"),
secondary.extra = NULL
) )
) )
} }