write shiny app code to create an interactable sidebar that will show the header (first five rows or so) of each column. also fix the code for the kmeeans. here is the code os far,plus the screenshots:

# Load necessary libraries library(shiny) library(shinydashboard) library(readr) library(ggplot2) library(dplyr) library(glue) library(leaflet) library(lubridate) library(corrplot) # Setup mergers Correlation Matrix and Residuals vs Fitted Plot Tab 1 Q-Q Plot in Shiny Correlation Matrix A series of plots that display correlation between density population and various kind of crimes Choose a crime