DrugSim/UI.R at master · AdrianShe/DrugSim · 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
library(shiny)

shinyUI(
  navbarPage("Drug Similarity Search",
             tabPanel("DRUGNET Similarity Search",
                      fluidPage(
                        sidebarLayout(
                          sidebarPanel(
                            selectInput("optn", label = "Search by:", choice = c("Chemical Name", "SMILES String")),
                            textInput("string", label = h4("Input a Chemical Identifer")),
                            checkboxGroupInput("studies", label = h4("Studies"), list("CCLE", "CGP", "GRAY", "GNE", "GSK", "CTRP", "NCI60", "CMAP")),
                            sliderInput("cutoff", label = h4("Cutoff in %"), min = 0, max = 100, value = 50),
                            checkboxInput("row", label = "Display one row per drug", value = FALSE),
                            checkboxInput("smiles", label = "Display SMILES", value = FALSE),
                            checkboxInput("inchikey", label = "Display InChIKey", value = FALSE),
                            checkboxInput("chembl", label = "Display links to ChEMBL", value = FALSE),
                            actionButton("change", "Submit!")
                          ),
                          mainPanel(
                            p("Search for similar drugs in large pharmacogenomic studies given an input drug name or SMILES id."),
                            p("Current studies include CCLE, CGP, GRAY, GNE, GSK, CTRP, CMAP, and NCI60."),
                            p("Similarity of two drugs is defined by the Tanimoto similarity of their extended fingerprints, as computed using rcdk package."),
                            p("Enter a query drug and press submit to complete a search. By default, an input drug will be searched against drugs in all studies."),
                            textOutput("params"),
                            h3("Results"),
                            dataTableOutput("similarDrugs"),
                            downloadLink('downloadResults', 'Export results to CSV')
                          )
                        )
                      ))
             ))