R-Code/shinyFluent.R at main · PythonCoderUnicorn/R-Code · 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(shiny)
library(shiny.fluent)


# shinyApp(
#   ui = div(
#     Checkbox.shinyInput("checkbox", value = TRUE),
#     textOutput("checkboxValue")
#   ),
#   server = function(input, output) {
#     output$checkboxValue <- renderText({
#       sprintf("Value: %s", input$checkbox)
#     })
#   }
# )


analysis_page <- makePage(
  "Sales representatives",
  "Best performing reps",
  div(
    Stack(
      horizontal = TRUE,
      tokens = list(childrenGap = 10),
      makeCard("Filters", filters, size = 4, style = "max-height: 320px"),
      makeCard("Deals count", plotlyOutput("plot"), size = 8, style = "max-height: 320px")
    ),
    uiOutput("analysis")
  )
)


ui <- fluentPage(
  tags$style(".card { padding: 28px; margin-bottom: 28px; }"),
  analysis_page
)