## ui.R ##
library(shinydashboard)




header <- dashboardHeader(title = "Spotify Playlist Analysis")

## Sidebar content
sidebar <-
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", tabName = "widgets", icon = icon("th")),
      menuItem("Menu item", icon = icon("calendar"))

    )
    ,
    sidebarSearchForm(textId = "playlist.url", buttonId = "searchButton", label = "Enter Playlist URI/URL...")

  )


## Body content
body <- dashboardBody(
        fluidRow(
          # box(
          #   textInput("text", "Text input:"),
          #   "Box content here", br(), "More box content",
          #   sliderInput("slider", "Slider input:", 1, 100, 50)
          # ) ,
          box(plotOutput("playlist_tracks", width="100%"))
          # , box(plotOutput("plot1", height = 250))
        )
    )


# ?plotOutput
# P.electro_latino_track_reordering


## All together now
dashboardPage(header, sidebar, body)