material_number_box function

Create a shinymaterial number box