I am trying to hide values with "--" within my function but its not working properly.

so the condition is if Valid N (total cases) is less than 3 then replace the values in column of mean and median with "--"

same as for 25perc and 75 perc for valid_N is less than 4

@ nirgrahamuk as you have given some solution , may be you can help more.

```
library(expss)
library(dplyr)
df <- data.frame(c1= c(12,13,NA,0,0,19,NA),
c2= c(0,14,0,NA,0,13,0),
c3= c(101,0,19,22,16,45,12),
c4= c(0,65,0,NA,0,45,0),
c5= c(1,0,NA,1,1,1,1),
c6= c(1,1,1,NA,0,NA,0),
c7= c(NA,NA,NA,1,0,1,0),
c8= c(1,NA,NA,1,0,1,0))
var <- "c3"
val_lab(df$c5)<-c("Dept 1"=1)
val_lab(df$c6)<-c("Dept 2"=1)
val_lab(df$c7)<-c("Dept 3"=1)
val_lab(df$c8)<-c("Dept 4"=1)
banner1 <- list(total(),df$c5,df$c6,df$c7,df$c8)
Mask_v <- function(fun,masking,Mask_val){
function(x) {val <- fun(x)
hval <- val
if(masking==TRUE)
hval <- "--"
ifelse(val <= Mask_val,hval,val)}
}
fun1 <- function(data, var, Banner, masking = FALSE,Mask_val=105) {
var1 <- rlang::parse_expr(var)
perc_25_raw <- function(x) quantile(x, type = 6, probs = seq(0, 1, 0.25), na.rm = TRUE)[2]
perc_75_raw <- function(x) quantile(x, type = 6, probs = seq(0, 1, 0.25), na.rm = TRUE)[4]
Mean_raw <- function(x) mean_col(x, na.rm = TRUE)
Median_raw <- function(x) median_col(x, na.rm = TRUE)
perc_25 <- perc_25_raw
perc_75 <- perc_75_raw
Mean <- Mean_raw
Median <- Median_raw
valid_n <- function(x) sum(!is.na(x))
N <- valid_n(data[[var1]])
print(N)
if(N <= 4){
perc_25 <- Mask_v(perc_25_raw,TRUE,Mask_val)
perc_75 <- Mask_v(perc_75_raw,TRUE,Mask_val)
}
if(N <= 3){
Mean <- Mask_v(Mean_raw,TRUE,Mask_val)}
if(N<=4){
Median <- Mask_v(Median_raw,TRUE,Mask_val)}
t1 <- cross_fun(
data,
data[[var1]],
col_vars = Banner,
fun = combine_functions(
"25th Perc" = perc_25,
"Mean" = Mean,
"Median" = Median,
"75th Perc" = perc_75,
"Valid N" = valid_n
)
)
return(t1)
}
debugonce(fun1)
result <- fun1(df, var = "c3", Banner = banner1, masking = TRUE)
print(result)
```

the output should be look like

row_labels | #Total | Dept 1 | Dept 2 | Dept 3 | Dept 4 |
---|---|---|---|---|---|

data[[var1]] | 25th Perc.25% | 12 | 14 | -- | -- |

data[[var1]] | Mean | 30.71429 | 39.2 | 40 | -- |

data[[var1]] | Median | 19 | 22 | 19 | -- |

data[[var1]] | 75th Perc.75% | 45 | 73 | -- | -- |

data[[var1]] | Valid N | 7 | 5 | 3 | 2 |