Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
# 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"))
)
)
)
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment