averagestar/ui.R at master · etsuprun/averagestar · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
require(shiny)
library("ggvis")
require(ndtv)
require(shinythemes)

shinyUI(
  fluidPage(
    theme = shinytheme("spacelab"),
    fluidRow(
      column(3,
             br(),
             img(src="logo.png", height = "30")
      ),
      column(9,
             titlePanel(windowTitle="averagestar.com - mean Yelp ratings by category","See how different types of businesses are rated on Yelp.")
      )
    ),
    p(),
    fluidRow(
      column(3,
             wellPanel(
               radioButtons(inputId = "viewType",
                            label = h4("Search for Yelp categories by:"),
                            choices = c("Category name",
                                        "Mean Yelp star rating")
               )
             ),
             conditionalPanel(
               condition = "input.viewType=='Category name'"
               ,
               wellPanel(
                 uiOutput("cat")
               ),
               wellPanel(
                 uiOutput("relatedcategories")
               )
             ),
             conditionalPanel(
               condition = "input.viewType=='Mean Yelp star rating'",

               wellPanel(
                 uiOutput("avgSlider"),
                 uiOutput("category")
               )
             )
      ),
      column(9,
             style = "background-color: #fff",
             wellPanel(uiOutput("heading"), style = "background-color: #fff"),
             ggvisOutput("categoryvis"),
             helpText("© averagestar.com. Code and analysis by Eugene Tsuprun. The data is from the ",
                a(href = "http://www.yelp.com/dataset_challenge","Yelp Challenge"),"."),
             a(href = "https://github.com/etsuprun/averagestar",img(src = "github.png")),
             a(href = "https://www.linkedin.com/pulse/why-internet-service-providers-airlines-get-bad-rap-eugene-tsuprun",
               img(src = "linkedin.png"))

      )
    )
  )
)