blood <- read.csv("blood.csv")
library(shiny)
ui <- fluidPage(
  title = "BLOOD DATASET",
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("show_vars", "Columns",
                         names(blood), selected = names(blood))
    ),
    mainPanel(
      tabsetPanel(
        id = 'Dataset',
        tabPanel("Blood", DT::dataTableOutput("mytable1")),

      )
    )
  )
)

server <- function(input, output) {

  # choose columns to display
  blood2 = blood[sample(nrow(blood), nrow(blood)), ]
  output$mytable1 <- DT::renderDataTable({
    DT::datatable(blood[, input$show_vars, drop = FALSE])
  })

}

shinyApp(ui, server)