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, {
if (NROW(data()) > 0) {
tryCatch({
tryCatch({
parameters <- list(
type = rv$plot.params()[["fun"]],
pri = input$primary,
@ -377,7 +377,7 @@ data_visuals_server <- function(id,
# showNotification(paste0(warn), type = "warning")
# },
error = function(err) {
showNotification(paste0(err), type = "err")
showNotification(paste0(err), type = "error")
})
}
}, ignoreInit = TRUE)
@ -600,6 +600,18 @@ supported_plots <- function() {
secondary.max = 4,
tertiary.type = c("dichotomous"),
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
)
)
}