actionButton("count", "Increment progress")), box(width = 4, actionButton("count1", "Increment approval...icon("list"), color = "purple" ) }) output$approvalBox <- renderInfoBox({ infoBox( "Approval...color = "purple", fill = TRUE ) }) output$approvalBox2 <- renderInfoBox({ infoBox( "Approval...actionButton("count", "Increment progress")), box(width = 4, actionButton("count1", "Increment approval...list"), color = "purple" ) }) output$approvalBox <- renderValueBox({ valueBox( "Approval