andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 01:49:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

catching missed functions

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-16 16:08:52 +02:00
parent a05c993c8c
commit 3e5f998263
No known key found for this signature in database
2 changed files with 85 additions and 72 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
R/update-factor-ext.R
View file

@ -45,8 +45,8 @@ update_factor_ui <- function(id) {
actionButton(
inputId = ns("sort_levels"),
label = tagList(
ph("sort-ascending"),
i18n("Sort by levels")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort by levels")
),
class = "btn-outline-primary mb-3",
width = "100%"
@ -58,8 +58,8 @@ update_factor_ui <- function(id) {
actionButton(
inputId = ns("sort_occurrences"),
label = tagList(
ph("sort-ascending"),
i18n("Sort by count")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort by count")
),
class = "btn-outline-primary mb-3",
width = "100%"
@ -71,7 +71,7 @@ update_factor_ui <- function(id) {
class = "float-end",
shinyWidgets::prettyCheckbox(
inputId = ns("new_var"),
label = i18n("Create a new variable (otherwise replaces the one selected)"),
label = datamods:::i18n("Create a new variable (otherwise replaces the one selected)"),
value = FALSE,
status = "primary",
outline = TRUE,
@ -79,7 +79,7 @@ update_factor_ui <- function(id) {
),
actionButton(
inputId = ns("create"),
label = tagList(ph("arrow-clockwise"), i18n("Update factor variable")),
label = tagList(phosphoricons::ph("arrow-clockwise"), datamods:::i18n("Update factor variable")),
class = "btn-outline-primary"
)
),
@ -127,13 +127,13 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
if (input$sort_levels %% 2 == 1) {
decreasing <- FALSE
label <- tagList(
ph("sort-descending"),
phosphoricons::ph("sort-descending"),
"Sort Levels"
)
} else {
decreasing <- TRUE
label <- tagList(
ph("sort-ascending"),
phosphoricons::ph("sort-ascending"),
"Sort Levels"
)
}
@ -145,14 +145,14 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
if (input$sort_occurrences %% 2 == 1) {
decreasing <- FALSE
label <- tagList(
ph("sort-descending"),
i18n("Sort count")
phosphoricons::ph("sort-descending"),
datamods:::i18n("Sort count")
)
} else {
decreasing <- TRUE
label <- tagList(
ph("sort-ascending"),
i18n("Sort count")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort count")
)
}
updateActionButton(inputId = "sort_occurrences", label = as.character(label))
@ -179,7 +179,7 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
grid <- grid_columns(
grid,
columns = c("Var1", "Var1_toset", "Freq"),
header = c(i18n("Levels"), "New label", i18n("Count"))
header = c(datamods:::i18n("Levels"), "New label", datamods:::i18n("Count"))
)
grid <- grid_colorbar(
grid,

49
inst/apps/FreesearchR/app.R
View file

@ -531,7 +531,7 @@ create_column_server <- function(id,
if (input$new_column == "") {
rv$feedback <- shinyWidgets::alert(
status = "warning",
ph("warning"), datamods::i18n("New column name cannot be empty")
phosphoricons::ph("warning"), datamods::i18n("New column name cannot be empty")
)
}
})
@ -695,7 +695,7 @@ try_compute_column <- function(expression,
)
shinyWidgets::alert(
status = "success",
ph("check"), datamods::i18n("Column added!")
phosphoricons::ph("check"), datamods::i18n("Column added!")
)
}
@ -718,7 +718,7 @@ extract_calls <- function(exp) {
alert_error <- function(text) {
alert(
status = "danger",
ph("bug"), text
phosphoricons::ph("bug"), text
)
}
@ -3996,7 +3996,7 @@ simple_snake <- function(data){
#### Current file: /Users/au301842/FreesearchR/R//hosted_version.R
########
hosted_version <- function()'v25.5.5-250514'
hosted_version <- function()'v25.5.5-250516'
########
@ -4103,7 +4103,7 @@ import_file_ui <- function(id,
inputId = ns("file"),
label = datamods:::i18n("Upload a file:"),
buttonLabel = datamods:::i18n("Browse..."),
placeholder = datamods:::i18n("No file selected"),
placeholder = datamods:::i18n("No file selected; maximum file size is 5 mb"),
accept = file_extensions,
width = "100%",
## A solution to allow multiple file upload is being considered
@ -8125,8 +8125,8 @@ update_factor_ui <- function(id) {
actionButton(
inputId = ns("sort_levels"),
label = tagList(
ph("sort-ascending"),
i18n("Sort by levels")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort by levels")
),
class = "btn-outline-primary mb-3",
width = "100%"
@ -8138,8 +8138,8 @@ update_factor_ui <- function(id) {
actionButton(
inputId = ns("sort_occurrences"),
label = tagList(
ph("sort-ascending"),
i18n("Sort by count")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort by count")
),
class = "btn-outline-primary mb-3",
width = "100%"
@ -8151,7 +8151,7 @@ update_factor_ui <- function(id) {
class = "float-end",
shinyWidgets::prettyCheckbox(
inputId = ns("new_var"),
label = i18n("Create a new variable (otherwise replaces the one selected)"),
label = datamods:::i18n("Create a new variable (otherwise replaces the one selected)"),
value = FALSE,
status = "primary",
outline = TRUE,
@ -8159,7 +8159,7 @@ update_factor_ui <- function(id) {
),
actionButton(
inputId = ns("create"),
label = tagList(ph("arrow-clockwise"), i18n("Update factor variable")),
label = tagList(phosphoricons::ph("arrow-clockwise"), datamods:::i18n("Update factor variable")),
class = "btn-outline-primary"
)
),
@ -8207,13 +8207,13 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
if (input$sort_levels %% 2 == 1) {
decreasing <- FALSE
label <- tagList(
ph("sort-descending"),
phosphoricons::ph("sort-descending"),
"Sort Levels"
)
} else {
decreasing <- TRUE
label <- tagList(
ph("sort-ascending"),
phosphoricons::ph("sort-ascending"),
"Sort Levels"
)
}
@ -8225,14 +8225,14 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
if (input$sort_occurrences %% 2 == 1) {
decreasing <- FALSE
label <- tagList(
ph("sort-descending"),
i18n("Sort count")
phosphoricons::ph("sort-descending"),
datamods:::i18n("Sort count")
)
} else {
decreasing <- TRUE
label <- tagList(
ph("sort-ascending"),
i18n("Sort count")
phosphoricons::ph("sort-ascending"),
datamods:::i18n("Sort count")
)
}
updateActionButton(inputId = "sort_occurrences", label = as.character(label))
@ -8259,7 +8259,7 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
grid <- grid_columns(
grid,
columns = c("Var1", "Var1_toset", "Freq"),
header = c(i18n("Levels"), "New label", i18n("Count"))
header = c(datamods:::i18n("Levels"), "New label", datamods:::i18n("Count"))
)
grid <- grid_colorbar(
grid,
@ -9352,6 +9352,15 @@ header_include <- function(){
}
########
#### Current file: /Users/au301842/FreesearchR/dev/dev_banner.R
########
dev_banner <- function(){
NULL
}
########
#### Current file: /Users/au301842/FreesearchR/app/ui.R
########
@ -9369,6 +9378,10 @@ ui_elements <- list(
"home" = bslib::nav_panel(
title = "FreesearchR",
shiny::fluidRow(
## On building the dev-version for shinyapps.io, the dev_banner() is redefined
## Default just output "NULL"
## This could probably be achieved more legantly, but this works.
dev_banner(),
shiny::column(width = 2),
shiny::column(
width = 8,