Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
migale
affiliationExplorer
Commits
12fa84c2
Commit
12fa84c2
authored
Jan 24, 2020
by
mahendra-mariadassou
Browse files
cosmetic changes in app_server
parent
17e2b430
Changes
2
Hide whitespace changes
Inline
Side-by-side
R/app_server.R
View file @
12fa84c2
#' @import shiny
#' @importFrom DT DT
#' @importFrom DT
render
DT
#' @importFrom phyloseq tax_table
#' @importFrom phyloseq.extended write_phyloseq
app_server
<-
function
(
input
,
output
,
session
)
{
# Load package data in the session (for testing purpose)
# data("physeq", package = "affiliationExplorer")
...
...
@@ -20,7 +21,6 @@ app_server <- function(input, output, session) {
affi
<-
all
$
affi
# Ambiguous ASVs and their affiliation
ambiguous_otu
<-
unique
(
affi
$
OTU
)
## this probably needs to be reactive
ambiguous_otu_affi
<-
phyloseq
::
tax_table
(
physeq
)[
ambiguous_otu
,
]
%>%
as
(
"matrix"
)
# Add ASV Select Input
insertUI
(
selector
=
"#tmp"
,
...
...
dev/02_dev.R
View file @
12fa84c2
...
...
@@ -15,7 +15,7 @@ golem::add_module( name = "Main" ) # Name of the module
usethis
::
use_pipe
()
usethis
::
use_package
(
"shinydashboard"
)
#
usethis::use_package("shinycssloaders")
usethis
::
use_package
(
"shinycssloaders"
)
#usethis::use_package("ReporteRs")
usethis
::
use_package
(
"phyloseq"
)
# To call each time you need a new package
usethis
::
use_package
(
"biomformat"
)
...
...
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