Hi I have a function in R:
myfunction<-function(.data, pvalue, roundto=2){ glue::glue_data(.x=.data, "p={format(round(pvalue,digits=roundto),nsmall=ro