Commit 61ca5e59 authored by Stevenn Volant's avatar Stevenn Volant
Browse files

modif logo + select variable

parent 937d42ac
......@@ -410,7 +410,7 @@ shinyServer(function(input, output,session) {
if(!is.null(target))
{
namesTarget = colnames(target)[2:ncol(target)]
selectInput("InterestVar",h6(strong("Select the variables")),namesTarget,selected=namesTarget[1],multiple=TRUE)
selectInput("InterestVar",h6(strong("Select the variables")),namesTarget,selected=namesTarget,multiple=TRUE)
}
})
......@@ -514,55 +514,6 @@ shinyServer(function(input, output,session) {
)
#################################################
## FOR PIERRE
#################################################
#
# ## Merge counts data
# dataMergeCounts_pierre <-reactive({
# resDiff = ResDiffAnal()
# dds = resDiff$dds
# counts = round(counts(dds, normalized = TRUE))
#
# VarInt = input$VisuVarIntBoxP
# ind_taxo = rownames(counts)
#
# tmp_merge = GetDataToPlot(resDiff,VarInt,ind_taxo,aggregate=TRUE)
# counts_tmp_combined = tmp_merge$counts
#
# return(counts_tmp_combined)
# })
#
#
#
#
# output$CountsMerge_pierre <- renderDataTable(
# dataMergeCounts_pierre(),
# options = list(lengthMenu = list(c(10, 50, -1), c('10', '50', 'All')),
# pageLength = 10,scrollX=TRUE
# ))
#
#
# ## Box for target visualisation
# output$BoxCountsMerge_pierre <- renderUI({
# box(title="Counts table",width = NULL, status = "primary", solidHeader = TRUE,collapsible = TRUE,collapsed = TRUE,
# dataTableOutput("CountsMerge_pierre"),
# downloadButton('ExportPloted', 'Export')
# )
# })
#
#
# ## Export in .csv
# output$ExportPloted <- downloadHandler(
# filename = function() { 'CountsMerge.csv' },
# content = function(file){write.csv(dataMergeCounts_pierre(), file, sep='\t')}
# )
#################################################
## END FOR PIERRE
#################################################
## Box for target visualisation
output$BoxTarget <- renderUI({
......
......@@ -105,7 +105,7 @@ sidebar <- dashboardSidebar(
menuItemOutput("dymMenu"),
img(src = "logo.jpg", height = 30, width = 200,style="position:absolute;bottom:0;margin:0 0 5px 10px;")
img(src = "logo.jpg", height = 75.4, width = 200,style="position:absolute;bottom:0;margin:0 0 15px 10px;")
)
......
www/logo.jpg

195 KB | W: | H:

www/logo.jpg

114 KB | W: | H:

www/logo.jpg
www/logo.jpg
www/logo.jpg
www/logo.jpg
  • 2-up
  • Swipe
  • Onion skin
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment