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

feat: Frequncy column added to new factor overview

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-10-30 12:55:49 +01:00
parent 61ca275690
commit 59cefc55a3
No known key found for this signature in database
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
R/cut-variable-ext.R
View file

@ -214,13 +214,6 @@ cut_variable_server <- function(id, data_r = reactive(NULL)) {
choices <- unique(choices)
## Implement labeled vector selection of cut methods to include descriptions
##
## cut_methods()
##
vectorSelectInput(
inputId = ns("method"),
label = i18n$t("Method:"),
@ -388,6 +381,7 @@ cut_variable_server <- function(id, data_r = reactive(NULL)) {
# shiny::req(rv$new_var_name)
data <- req(data_cutted_r())
# variable <- req(input$variable)
count_data <- as.data.frame(
table(
breaks = data[[length(data)]],
@ -395,6 +389,8 @@ cut_variable_server <- function(id, data_r = reactive(NULL)) {
),
responseName = "count"
)
count_data$freq <- paste(signif(count_data$count/nrow(data)*100,3),"%")
# browser()
gridTheme <- getOption("datagrid.theme")
if (length(gridTheme) < 1) {
datamods:::apply_grid_theme()