Last active
August 29, 2015 14:12
-
-
Save asudipta/bfd086b60575f4abe15f to your computer and use it in GitHub Desktop.
My portfolio of skillsets
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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()) | |
| }) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| # Define UI for application that draws a histogram | |
| shinyUI(fluidPage( | |
| # Application title | |
| titlePanel("Welcome to ShinyR@asudipta.banerjee !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") | |
| ) | |
| ) | |
| )) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment