#Navigation
library(shiny)
library(DBI)
library(ggplot2)

conn <- dbConnect(drv = RMySQL::MySQL(),dbname = "world",host =    "localhost",username = "root",password = "xxxx")
rs <- dbSendQuery(conn = conn, 'select * from city')
Data <-fetch(rs, n=-1)
# Define the overall UI
ui<-fluidPage(
sidebarLayout(
sidebarPanel(
  conditionalPanel(
    'input.dataset === "Data"',
    checkboxGroupInput('show_vars', 'Columns in full Table to show:',
                       names(Data), selected = names(Data))
  ),

  fluidRow(
    column(6,
           selectInput("Nam",
                       "Name:",
                       c("All",
                         unique(as.character(data$Name))))
    ),

    column(6,
           selectInput("cc",
                       "CountryCode:",
                       c("All",
                         unique(as.character(data$CountryCode))))
    )
  )
  ),

mainPanel(

  tabsetPanel(
    id = 'dataset',
    tabPanel('Data', DT::dataTableOutput('mytable1'))
  )
)
)
)

server<-function(input, output) {
#output$table <- DT::renderDataTable(DT::datatable({
# choose columns to display
output$mytable1 <- DT::renderDataTable(
DT::datatable({Data[, input$show_vars, drop = FALSE]
  if (input$Nam != "All") {
    Data <- Data[Data$Name == input$Nam,]
  }
  if (input$cc != "All") {
    Data <- Data[Data$CountryCode == input$cc,]
  }
  Data

 }))
 }
shinyApp(ui, server)