Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Amine GHOZLANE
shaman
Commits
61ca5e59
Commit
61ca5e59
authored
Jan 18, 2016
by
Stevenn Volant
Browse files
modif logo + select variable
parent
937d42ac
Changes
3
Hide whitespace changes
Inline
Side-by-side
server.R
View file @
61ca5e59
...
...
@@ -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
({
...
...
ui.R
View file @
61ca5e59
...
...
@@ -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
1
5px 10px;"
)
)
...
...
www/logo.jpg
View replaced file @
937d42ac
View file @
61ca5e59
195 KB
|
W:
|
H:
114 KB
|
W:
|
H:
2-up
Swipe
Onion skin
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment