Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
jlopez
RPACIB
Commits
76e1385a
Commit
76e1385a
authored
Jun 06, 2018
by
jlopez
Browse files
Update select package R
parent
dda0636a
Changes
2
Hide whitespace changes
Inline
Side-by-side
pages/pages_def_home.R
View file @
76e1385a
...
...
@@ -67,14 +67,19 @@ tabHome = fluidPage(align="left",
DT
::
dataTableOutput
(
'dtbiocontainer'
)
),
tabPanel
(
'CRAN Packages'
,
withSpinner
(
DT
::
dataTableOutput
(
'dtrcranpackage'
),
type
=
4
,
proxy.height
=
"150px"
)
tabPanel
(
'CRAN Packages'
,
div
(
id
=
"formCRAN"
,
selectizeInput
(
'selectedCRAN'
,
'CRAN package selected:'
,
choices
=
NULL
,
multiple
=
TRUE
,
options
=
list
(
maxItems
=
30000
))
,
withSpinner
(
DT
::
dataTableOutput
(
'dtrcranpackage'
),
type
=
4
,
proxy.height
=
"150px"
)
)
),
tabPanel
(
'Bioconductor Packages'
,
div
(
id
=
"formBioconductor"
,
# br(),
#selectizeInput('selectedBioconductor', 'R Bioconductor selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
selectizeInput
(
'selectedConductor'
,
'Bioconductor package selected:'
,
choices
=
NULL
,
multiple
=
TRUE
,
options
=
list
(
maxItems
=
30000
)),
DT
::
dataTableOutput
(
'dtrbioconductorpackage'
))),
tabPanel
(
'Github R Packages'
,
...
...
server/opt_home.R
View file @
76e1385a
...
...
@@ -234,8 +234,7 @@ createCRANPackage <- function(result) {
selectCRAN
<-
allCRAN
[
input
$
dtrcranpackage_rows_all
,]
selectCRAN
<-
selectCRAN
[,
"Package"
]
selectCRAN
<-
input
$
selectedCRAN
sizeCRAN
<-
length
(
selectCRAN
)
...
...
@@ -309,10 +308,11 @@ createGithubPackage <- function(result) {
#' Use for create Bioconductor content
createBioconductorPackage
<-
function
(
result
)
{
selectBIO
<-
allBIO
[
input
$
dtrbioconductorpackage_rows_all
,]
selectBIO
<-
selectBIO
[,
"Package"
]
selectBIO
<-
input
$
selectedConductor
sizeBIO
<-
length
(
selectBIO
)
if
(
!
is.null
(
sizeBIO
))
{
if
(
sizeBIO
<
length
(
allBIO
[,
"Package"
]))
{
if
(
sizeBIO
>=
1
)
{
...
...
@@ -322,10 +322,10 @@ createBioconductorPackage <- function(result) {
if
(
input
$
containerType
==
"singularity"
)
{
result
<-
paste
(
result
,
'\tR --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite(); "'
,
sep
=
"\n"
)
listRBIO
<-
'\tR --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite(
\\
'
listRBIO
<-
'\tR --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite('
}
else
{
result
<-
paste
(
result
,
'RUN R --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite(); "'
,
sep
=
"\n"
)
listRBIO
<-
'RUN R --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite(
\\
'
listRBIO
<-
'RUN R --slave -e "source(\'https://bioconductor.org/biocLite.R\'); biocLite('
}
for
(
pkg
in
1
:
sizeBIO
){
...
...
@@ -482,10 +482,11 @@ createContentFile <- function() {
result
<-
createRCran
(
result
)
}
}
result
<-
createCRANPackage
(
result
)
result
<-
createBioconductorPackage
(
result
)
result
<-
createGithubPackage
(
result
)
}
if
(
!
is.null
(
input
$
selectedBiocontainer
))
{
result
<-
createBiocontainer
(
result
,
haveR
)
...
...
@@ -562,6 +563,43 @@ observe({
})
observe
({
if
(
is.null
(
input
$
dtrcranpackage_rows_selected
))
{
shinyjs
::
reset
(
"formCRAN"
)
}
else
{
i
=
1
selectCRAN
<<-
list
()
for
(
x
in
input
$
dtrcranpackage_rows_selected
)
{
selectCRAN
[
i
]
<<-
as.character
(
allCRAN
$
Package
[
x
])
i
=
i
+
1
}
#selectCRAN <- c(unlist(selectCRAN))
updateSelectizeInput
(
session
,
"selectedCRAN"
,
choices
=
selectCRAN
,
selected
=
selectCRAN
,
options
=
list
())
}
})
observe
({
if
(
is.null
(
input
$
dtrbioconductorpackage_rows_selected
))
{
shinyjs
::
reset
(
"formBioconductor"
)
}
else
{
i
=
1
selectConductor
<<-
list
()
for
(
x
in
input
$
dtrbioconductorpackage_rows_selected
)
{
selectConductor
[
i
]
<<-
as.character
(
allBIO
$
Package
[
x
])
i
=
i
+
1
}
updateSelectizeInput
(
session
,
"selectedConductor"
,
choices
=
selectConductor
,
selected
=
selectConductor
,
options
=
list
())
}
})
observe
({
if
(
is.null
(
input
$
dtrgithubpackage_rows_selected
))
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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