Decimal places in shapiro.test

[Jovinjo]

Hello everybody, I am creating the shapiro-wilk test table using dplyr packages for groupwise operations. It looks like this in R Shiny:

and this is the code:

#Output for normality test according to group
  output$normTable <- renderTable({
    Data <- df_sel()
    if(is.null(Data)) {return(NULL)}
    if(input$normTest==TRUE){
      Data %>% group_by_(input$indStat)%>%
      summarize_at(vars(input$depStat),funs(statistic = shapiro.test(.)$statistic, 
                   p.value= shapiro.test(.)$p.value))
    }
  })

But the problem is that the output always given in 2 decimal places. When I tried in R Console, it gives the full value of the results with 3 decimal places. This is how it looks like in R Console:

> data %>% group_by(Product) %>% summarise(statistic = shapiro.test(dWeight_V3.V1)$statistic, p.value=shapiro.test(dWeight_V3.V1)$p.value)
`summarise()` ungrouping output (override with `.groups` argument)
# A tibble: 2 x 3
  Product statistic p.value
  <chr>       <dbl>   <dbl>
1 A           0.969   0.632
2 B           0.985   0.963

I want to have the full values. Can anyone help me with this one?

[nirgrahamuk]

Data %>% 
group_by_(input$indStat)%>%
      summarize_at(vars(input$depStat),
      funs(statistic = shapiro.test(.)$statistic, 
                   p.value= shapiro.test(.)$p.value))%>% 
mutate(x,across(where(is.numeric),~format(round(.,3))))

[Jovinjo]

Thank you so much! That works!