vaf_simulator/ui.R at master · TransmissibleCancerGroup/vaf_simulator · 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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#

library(shiny)

shinyUI(fluidPage(

    # APP TITLE
    titlePanel("Variant allele fraction"),

    # SIDEBAR WITH VARIOUS CONTROLS
    sidebarLayout(
        sidebarPanel(

            # NUMBER OF VARIANTS
            numericInput("total",
                         "Total variants", 50000,
                         min = 0, max = 100000000, step = 10000),

            # READ DEPTH
            sliderInput("depth",
                        "Read depth",
                        min = 10, max = 1000, value = 60),

            # HOST COPY NUMBER
            radioButtons("hostcn",
                        "Host Copy Number",
                        choices = c(1, 2), selected = 2, inline = TRUE),

            # SAMPLE PURITY
            sliderInput("purity",
                        "Sample Purity",
                        min = 0, max = 1, value = 0.7, step = 0.01, round = 2),

            # NUMBER OF BINS IN HISTOGRAM
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 100,
                        value = 50),

            # PEAK HEIGHTS
            uiOutput("peak_heights")
        ),

        # Show a plot of the generated distribution
        mainPanel(

            # RENDER MORE CONTROLS IN SAME DIV AS PLOT
            splitLayout(
                cellWidths = c("25%", "25%", "50%"),
                cellArgs = list(style = "padding: 6px"),
                # MAJOR ALLELE COPY NUMBER STATE
                numericInput("major",
                             "Major allele", 1,
                             min = 0, max = 10, step = 1),

                # SERVER GENERATES MINOR ALLELE COPY NUMBER STATE - see server.R
                uiOutput("minor"),

                # GERMLINE OR SOMATIC
                selectizeInput("type", "Variant Type", c("Germline", "Somatic", "Both"),
                               options = list(dropdownParent = 'body'))  # So the drop down renders on top of background
            ),

            # JUST PLOT HISTOGRAM
            plotOutput("distPlot"),

            # DISPLAY HOVER INFO
            tableOutput("grid")
        )
    )
))