       sidebarLayout(         box(actionButton("tabBut", "View Table")),         mainPanel(            bsModal("modalExample", "Data Table", "tabBut", size = "large",                   dataTableOutput("distTable")))))