AdvancedShiny/ui.R at master · BDStat/AdvancedShiny · 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
library(ggvis)

# For dropdown menu
actionLink <- function(inputId, ...) {
  tags$a(href='javascript:void',
         id=inputId,
         class='action-button',
         ...)
}

fluidPage(
  titlePanel("Yelp Doctor Review Sentiment Analysis"),
  fluidRow(
    column(3,
           wellPanel(
             h4("Filter"),
             sliderInput("review", "Minimum number of reviews on Yelp",
                         1, 220, 10, step = 10),
             sliderInput("rating", "Rating", 1, 5, value = c(1, 5)),
             sliderInput("score", "Minimum number of sentiment scores)",
                         -72, 220, 100, step = 10)
           ),
           wellPanel(
             selectInput("xvar", "X-axis variable", axis_vars, selected = "rating"),
             selectInput("yvar", "Y-axis variable", axis_vars, selected = "score")
           )
    ),
    column(9,
           wellPanel(
             span("Yelp Doctor Review Sentiment Analysis:",
                  textOutput("n_reviews")
             )
           ),
           ggvisOutput("plot1")

    )
  )
)