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
Guillaume Perréal
easy16S
Commits
226dc4d6
Commit
226dc4d6
authored
Sep 04, 2018
by
Midoux Cedric
Browse files
read_excel
parent
5511da30
Changes
1
Hide whitespace changes
Inline
Side-by-side
internals.R
View file @
226dc4d6
...
...
@@ -19,10 +19,9 @@
## Happy path: excel version
if
(
input
$
CSVsep
==
"excel"
)
{
## For efficiency and consistency, maybe replace with readr::read_xl
sdf
<-
RcmdrMisc
::
readXL
(
input
$
fileMeta
$
datapath
,
rownames
=
TRUE
,
header
=
TRUE
)
sdf
<-
as.data.frame
(
readxl
::
read_excel
(
input
$
fileMeta
$
datapath
))
row.names
(
sdf
)
<-
sdf
[,
1
]
sdf
<-
sdf
[,
-1
]
sdf
$
SampleID
<-
rownames
(
sdf
)
return
(
sdf
)
}
...
...
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