Interactive-heatmap-with-R/ui.R at master · gdevailly/Interactive-heatmap-with-R · 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
shinyUI(pageWithSidebar(

    # Application title
    headerPanel("Interactive heatmap with R"),

    # Sidebar with a slider input for number of bins
    sidebarPanel(
        sliderInput("size",
                "Matrix size (N x N):",
                min = 10,
                max = 474,
                value = 10
        ),
        p("Note how performance are better with plot.ly than with d3heatmap for bigger matrices."),
        p("Source code:"),
        a("GitHub" , href="https://github.com/gdevailly/Interactive-heatmap-with-R")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      tabsetPanel(
          tabPanel("plot.ly", plotlyOutput("plotlyHM", width = "850px", height = "800px")),
          tabPanel("d3heatmap", d3heatmapOutput("d3HM", width = "800px", height = "800px"))
      )
    )

))