require(moonBook)
require(ztable)
res=mytable3( Type ~ Duration of fever ,data = cleanData(my_readfile(input$file)) ,method= 1 ,digits= 1 ,exact=TRUE )
z=ztable(res)
below05=which(as.numeric(z$x[[ncol(z$x)]])<0.05)+1
if(length(below05)>0)
   z=addRowColor(z,rows=below05,color='lightcyan')
z$caption=paste('Table 1. Clinical Characteristics according to',
                       input$group1)
print(z,caption=caption)

알려주시면 감사하겠습니다.