inst/shinyApp/app/ui.R

In IsamBenS/ClusteringTool: Clustering Tool

ui <- dashboardPage(
    
    dashboardHeader
    (
        title="Clustering Tool"
    ),
    
    dashboardSidebar
    (
        sidebarMenu
        (
            id="tabs",
            menuItem("Files Selection", tabName="t_1"),
            menuItem("Clustering", tabName="t_2"),
            menuItem("Download", tabName = "t_3")
        )
    ),
    
    dashboardBody
    (
        useShinyjs(),
        tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")),
        tabItems
        (
            tabItem
            (
                tabName="t_1",
                h2("Files Selection"),
                fluidRow
                (
                    id="t_1_fr",
                    box
					(
						id="t_1_1",width=2,height = "32vh",style="height:32vh;overflow:auto",
					    actionButton("t_1_1_add", "Add files",style="width:90%;margin-left:4.8%"),
					    actionButton("t_1_1_select_all", "Select All",style="width:90%;margin-left:4.8%;margin-top:5.8vh"),
					    actionButton("t_1_1_deselect_all", "Deselect All",style="width:90%;margin-left:4.8%"),
					    actionButton("t_1_1_rm", "Remove Selection",style="width:90%;margin-left:4.8%")
					),
                    box
                    (
                        id="t_1_2",width=3,height = "32vh",style="height:32vh;overflow:auto",
                        actionButton("t_1_1_compensate", "Compensate Selection",style="width:90%;margin-left:4.8%;margin-bottom:1.5vh;"),
                        selectInput("t_1_2_select_transform", "Select Transformation", choices=list("logicle"=1, "arcsinh"=2), selected = 1),
                        box(id="t_1_2_sel_box",width=12,style="overflow:auto;height:9vh"),
                        actionButton("t_1_2_transform", "Transform Selection",style="width:90%;margin-left:4.8%")
                    ),
                    box
                    (
                        height = "32vh", width=2, id="t_2_2", style="overflow:auto;max-height:20vh;margin-top:5vh",
                        checkboxInput("t_2_1_dwnsmpl", "Downsample all the files", value = T),
                        div
                        (
                            div
                            (
                                sliderInput("t_2_1_dwnsmpl_rate", "Downsampling rate(%)", min = 0, max = 100, step = 1, value = 100),
                                style="float:left;width:70%;"
                            ),
                            div
                            (
                                textInput("t_2_1_dwnsmpl_rate_step", "Step", value=1),
                                style="float:left;width:14%;margin-top:2vh;margin-left:1.2vw"
                            )
                        )
                        
                        
                    ),
                    box
                    (
                        width=4, style="height:32vh;overflow:auto",
                        tableOutput("t_1_4_fileInfo")
                    ),
                    fluidRow
                    (
                        id="t_1_3"
                    )
                )
            ),
			
            tabItem
            (
                tabName="t_2",
                h2("Clustering"),
                shinyjs::hidden(fluidRow
                (
                    id="t_2_fr",style="padding:2%;width:90%;border:solid gray;border-width:2px 0px 0px 1px",
                    box
					(
						height = "22vh", width=4, id="t_2_1", style="overflow:auto;max-height:20vh",
						selectInput("t_2_1_sel", "Select Algortihms", choices = NULL, multiple = T),
					    actionButton("t_2_1_run", "Run Algorithms", width="auto", style="margin-top:3%;margin-left:35%"),
					    div(id="t_2_1_error")
					),
                    hidden(fluidRow
                    (
                        id="t_2_4", width=8,
                        box
                        (
                            style="height:22vh;overflow:auto",
                            tableOutput("t_2_4_fileInfo")
                        )
                    )),
                    fluidRow
                    (
                        id="t_2_3"
                    )
                ))
            ),
            
            tabItem
            (
                tabName="t_3",
                h2("Download Files"),
                fluidRow
                (
                    id="t_3_fr",
                    box
                    (
                        id="t_3_1",width=3,height = "32vh",style="height:32vh;overflow:auto",
                        selectInput("t_3_1_select_transform", "Select Transformation", choices=list("logicle"=1, "arcsinh"=2), selected = 1),
                        box(id="t_3_1_sel_box",width=12,style="overflow:auto;height:9vh"),
                        actionButton("t_3_1_itransform", "Detransform Selection",style="width:80%;margin-left:9.8%"),
                        actionButton("t_3_2_icompensate", "Decompensate Selection",style="width:80%;margin-left:9.8%;margin-top:1.2vh")
                    ),
                    box
                    (
                        id="t_3_2",width=2,height = "32vh",style="height:32vh;overflow:auto;margin-top:20%",
                        actionButton("t_3_2_select_all", "Select All", style="width:80%;margin-left:9.8%;"),
                        actionButton("t_3_2_deselect_all", "Deselect All", style="width:80%;margin-left:9.8%"),
                        downloadButton("t_3_3_dl", "Download Enriched Files", style="width:80%;margin-left:9.8%;margin-top:5vh")
                    ),
                    hidden(fluidRow
                    (
                       id="t_3_4", width=7,
                       box
                       (
                           style="height:25vh;overflow:auto",
                           tableOutput("t_3_4_fileInfo")
                       )
                    )),
                    fluidRow
                    (
                        id="t_3_4"
                    )
                )
            )
        )
        
    )
    
)