R Shiny app for data table

library(shiny)
library(DT)
library(dplyr)
library(reshape2)
library(scales)

mode = read.csv2('aaa.csv', header = F, sep='\t')
names(mode) = c('dt', 'mode', 'version', 'amount')

aa = mode %>% group_by(dt, mode) %>% summarise(sum(amount))
bb = mode %>% filter(version =='abc') %>% group_by(dt, mode) %>% summarise(sum(amount))
cc = left_join(aa, bb, by=c('dt'='dt','mode'='mode'))

cc[is.na(cc)] = 0
names(cc) = c('dt', 'mode', 'total', 'some')
cc = cc %>% mutate(updated_ratio = some / total)

dd = melt(cc, id.vars = c('dt','mode'), variable.name = 'indicator')
dd = dd %>% filter(dt>=20160706 & dt<=20160713 & mode %in% c('v1','v2','v3') )


final = dcast(dd, mode+indicator~dt, sum)
final[is.na(final)] = 0

head(final)
final_integer = comma(final[final$indicator %in% c('total', 'some'),])
final_percent = cbind(final[final$indicator == 'updated_ratio',1:2], apply(final[final$indicator == 'updated_ratio',3:10],2, function(x) percent(x) ))
final = rbind(final_integer, final_percent)
final = full_join(final[,1:2] %>% arrange(mode, indicator), final, by=c('mode'='mode','indicator'='indicator'))


# Define the overall UI
shinyUI = fluidPage(
    titlePanel("updated"),
    
    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4,
             selectInput("mode", "mode:", c("All", unique(as.character(final$mode))))
      ),
      column(4,
             selectInput("indicator", "indicator:", c("All", unique(as.character(final$indicator))))
      )
    ),
    # Create a new row for the table.
    fluidRow(
      DT::dataTableOutput("table")
    )
)

shinyServer = function(input, output) {
  
  # Filter data based on selections
  output$table <- DT::renderDataTable(DT::datatable({
    data <- final
    if (input$mode != "All") {
      data <- data[data$mode == input$mode,]
    }
    if (input$indicator != "All") {
      data <- data[data$indicator == input$indicator,]
    }
    data
  }))
  
}

shinyApp(ui = shinyUI, server = shinyServer)