CESA/ui.R at master · ScienceAdvances/CESA · 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
library(shiny)
library(readr)
options(encoding="UTF-8")
# Define UI for application that draws a histogram
source('www/source.R')
shinyUI(fluidPage(
    tags$style("@import url(https://use.fontawesome.com/releases/v6.0.0/css/all.css);"),
    tags$style(
        ".p1,.p2,.p3 {
      color: #3b6089;
    }"
    ),
    # Sidebar
    sidebarLayout(
        sidebarPanel(

            p(class = "p1","Please paste your data below, which contains one dataframe of three colums, ",tags$b('days,'),tags$b('group1,'),tags$b('group2.')),
            tags$br(),
            p(class = "p2","You can use customed header, and the second column name will be the file name of download."),
            p(class = "p3","You may run the sample file as shown in text box."),
            actionButton(inputId = "Run",label = "Run",width="90%",icon=icon("person-running",verify_fa = FALSE)),
            tags$br(),
            tags$br(),
            downloadButton("downspss",label='Download SPSS',width="30%"),
            downloadButton("downtable",label='Download Table',width="30%"),
            downloadButton("downplot",label='Download Plot',width="30%"),
            tags$br(),
            textAreaInput("file5", "", value=Text,width="90%",height = "400px",
                          cols=3,rows = 100,resize = "both",placeholder=Text),
            tags$div(
                tags$h5('Author: Victor'),
                tags$h5("Email: Victor@BioQuest.cn"),
                tags$a(href="https://BioQuest.cn", "Website: BioQuest.cn"),
                tags$br(),
                tags$a(href="https://gitlab.com/BioQuest/CESA", "Source Code"))
        ),
        mainPanel(
            tags$h1(tags$em("Caenorhabditis elegans"),"survival analysis"),
            tags$hr(),
            tableOutput(outputId='table1'),
            tags$p(tags$b('meanse:'),"mean ± SEM, ", tags$b('pv:'),"p-value, ", tags$b('PLC:'),"percent life span change, ", tags$b('N:'),"number of each group"),
            plotOutput("plot1",
                       width = "50%",
                       height = "500px"),
            hr(),
))))