lastfmApp_ui.R

# ui.R

library(shiny)

shinyUI(fluidPage(
  titlePanel("Lastfm Dashboard"),

  sidebarLayout(position ="left",
    sidebarPanel(
      img(src = "logo.png", height = 80, width = 80),
      br(),
      br(),      
      #numericInput("obs", "Number of observations to view:", 10),
      sliderInput(inputId="obs", label="Number of observations to view:", min=1, max=100, value=10,),
      br(),
      br(),
      p("Built using ", a("Shiny", href = "http://www.rstudio.com/shiny"), "from RStudio"),
      p("Data taken from the  ", a("lastfm", href = "http://www.last.fm/api"), "API"),
      p("Created by James Thomson ", a("inspiration information", href = "http://myinspirationinformation.com/"))
    ),

    mainPanel(
      tabsetPanel(type="tabs",
                  tabPanel("Popular Artists",imageOutput("artistListeners"), imageOutput("artistPlaycount"), tableOutput("artistData")),
                  tabPanel("Popular Tracks",imageOutput("trackListeners"), imageOutput("trackPlaycount"), tableOutput("trackData"))
                  )
      
            )
        )
))