Skip to content

Commit

Permalink
Consider forSelectedVals
Browse files Browse the repository at this point in the history
Swechhya committed Mar 9, 2020
1 parent 16918e3 commit 396c399
Showing 2 changed files with 7 additions and 2 deletions.
7 changes: 6 additions & 1 deletion R/excel_to_R.R
Original file line number Diff line number Diff line change
@@ -20,7 +20,12 @@
#'}

excel_to_R <- function(excelObj) {
if (!is.null(excelObj) && !excelObj$forSelectedVals ) {
if (!is.null(excelObj)) {
if( excelObj$forSelectedVals )
{
excelObj =excelObj$fullData
}

data <- excelObj$data
colHeaders <- excelObj$colHeaders
colType <- excelObj$colType
2 changes: 1 addition & 1 deletion R/get_selected_data.R
Original file line number Diff line number Diff line change
@@ -21,7 +21,7 @@

get_selected_data<- function(excelObj) {
if (!is.null(excelObj) && excelObj$forSelectedVals) {
data <- excelObj$data
data <- excelObj$selectedData
dataOutput <- do.call(rbind.data.frame, data)
rownames(dataOutput) <- NULL
colnames(dataOutput) <- NULL

0 comments on commit 396c399

Please sign in to comment.