My portfolio of skillsets

server.R

library(shiny)
 
shinyServer(function(input, output) {
  
  TechSkills <- c( "Ipython", "Shiny R", "Matlab/Octave", "VBA", "Hadoop/MapReduce", "Apache Spark")

TS_ACC <-c(25,26,22,12,22,27)
TS_AUR <- c(8,6,7,5,4,7)
TS_QUIN <- c(12,12,14,24,17,27)
ACCENTURE=data.frame(TechSkills, TS_ACC)
AUROCH=data.frame(TechSkills, TS_AUR)
QUINTILES=data.frame(TechSkills, TS_QUIN)
FunctSkills =c("Balanced Scorecard/KPI", "Data Analytics", "Algorithims/ Machine level", "Risk Managment", "Customer Relationship Managment")
 
datasetInput <- reactive({
switch(input$dataset,
"Accenture" = ACCENTURE,
"Auroch" = AUROCH,
"Quintiles" = QUINTILES)
})
output$dataset <- renderPrint({
dataset <- datasetInput()
})
output$view <- renderTable({
head(datasetInput())
}) 

ui.R

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Welcome to [email protected] !This is a brief overview of my experience "),

  # Sidebar with a slider input for the number of bins
  sidebarLayout(
    sidebarPanel(
     # textInput("caption", "Caption:", "Overview of Experience"),
      
      selectInput("dataset", "Choose a dataset:", 
                  choices = c("Accenture", "Auroch", "Arundhuti", "Quintiles")),
      
      #numericInput("obs", "Number of observations to view:", 10)
    ),

    # Show a plot of the generated distribution
     mainPanel(
   #   h3(textOutput("caption", container = span)),
      
      verbatimTextOutput("summary"), 
      
      tableOutput("view")
    )
  )
))