Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Midoux Cedric
easy16S
Commits
2f2009bb
Commit
2f2009bb
authored
Jul 24, 2018
by
mahendra-mariadassou
Browse files
corrected a bug in data16S() with RData import.
parent
1a448020
Changes
2
Hide whitespace changes
Inline
Side-by-side
internals.R
View file @
2f2009bb
...
...
@@ -47,4 +47,16 @@
tdf
[
grep
(
"unknown "
,
tdf
)]
<-
NA
#tdf[grep("Unclassified", tdf)] <- NA
return
(
tdf
)
}
\ No newline at end of file
}
.import_from_rdata
<-
function
(
input
)
{
## Happy path
ne
<-
new.env
()
## new env to store RData content and avoid border effects
if
(
!
is.null
(
input
$
fileRData
))
load
(
input
$
fileRData
$
datapath
,
envir
=
ne
)
if
(
class
(
ne
$
data
)
==
"phyloseq"
)
return
(
ne
$
data
)
## Unhappy paths: everything else
return
()
}
server.R
View file @
2f2009bb
...
...
@@ -85,12 +85,16 @@ shinyServer
## Rdata input
if
(
input
$
dataset
==
"rdata"
)
{
## .import_from_rdata(input) ## does not work as a function for some reason
## Happy path
ne
<-
new.env
()
## new env to store RData content and avoid border effects
if
(
!
is.null
(
input
$
fileRData
))
load
(
input
$
fileRData
$
datapath
)
if
(
exists
(
"data"
)
&&
class
(
data
)
==
"phyloseq"
)
return
(
data
)
## Unhappy path
load
(
input
$
fileRData
$
datapath
,
envir
=
ne
)
if
(
class
(
ne
$
data
)
==
"phyloseq"
)
return
(
ne
$
data
)
## Unhappy paths: everything else
return
()
}
...
...
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