I have a data frame below
db <- data.frame(aa = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50),
a1 = c(31,60,23,40,32,44,39,50,29,22,57,55,39,54,48,40,60,60,41,29,31,29,49,33,41,59,35,50,28,36,34,60,39,40,43,25,38,51,48,31,49,28,48,59,58,22,57,40,36,51))
now i am trying to create a function get output in decimal values and without decimal values
so my function will be look like
one_var(dataset=db,var=a1,Name_of_variable="years",decimal=True)
one_var<-function(dataset,var,Name_of_variable,decimal) {
var <- rlang::parse_expr(var)
summ_tab1<- dataset %>% filter(!is.na(!!var)) %>% summarise(
q25 = round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[2],ifelse(decimal==TRUE,digits = 1,digits = 0)),
Median =round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[3],ifelse(decimal==TRUE,digits = 1,digits = 0)),
Average = round( mean(!! var, na.rm=TRUE),ifelse(decimal==TRUE,digits = 1,digits = 0)),
q75 = round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[4],ifelse(decimal==TRUE,digits = 1,digits = 0)) ,
N = sum(!is.na(!!var)))
summ_tab1
}
so if decimal is true it should show all values with one decimal ,if decimal is false then it should show all values without decimal.
but i am getting error for creating this.