Running examples in ‘NormalizeMets-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ComparePvalHist
> ### Title: p-value Histogram
> ### Aliases: ComparePvalHist
> 
> ### ** Examples
> 
> data("alldata_eg")
> featuredata_eg<-alldata_eg$featuredata
> dataview(featuredata_eg)

 - The data consists of 150 rows by 128 columns 

           m_1       m_2       m_3       m_4       m_5       m_6       m_7
s_1  10485.867 33220.562 1112.9795 1408.6396  455.7529 1100.4023 122.36316
s_2   8960.469 29995.516  926.2891  529.0449  873.6094 2201.2461 173.08020
s_3  10160.445 28559.641 1230.3330 1306.3203 1027.5078 2066.5918 269.79980
s_4   8794.477 27593.750  901.7622 1800.0830  675.0396 1675.8496 287.99927
s_5   8956.922 28161.766  979.1724  818.0366  904.0254 1245.9912 167.41333
s_6   9092.258 31685.312  634.6899  478.3811  980.4233 1259.5635  97.56250
s_7   2271.045  7692.176  143.1688  109.8399  730.6172 1387.7920 149.09668
s_8   7850.402 26462.797  822.5991 1341.2158  583.5830 2164.1270 227.76965
s_9  10969.062 21605.141  408.0005 1499.4795  452.2375  916.5283 234.49756
s_10  1743.933  7647.645  218.4199  127.4294  408.2913  999.5718  74.82697
          m_8 ...
s_1  3855.805 ...
s_2  5090.637 ...
s_3  4483.906 ...
s_4  4949.262 ...
s_5  4302.934 ...
s_6  4406.344 ...
s_7  1543.406 ...
s_8  5030.688 ...
s_9  4657.254 ...
s_10 1510.012 ...
> sampledata_eg<-alldata_eg$sampledata
> dataview(sampledata_eg)

 - The data consists of 150 rows by 4 columns 

       batch gender   Age   bmi
s_1  Batch 2 code_1 58.66 22.22
s_2  Batch 2 code_0 76.70 23.74
s_3  Batch 2 code_0 56.15 28.19
s_4  Batch 2 code_0 77.22 26.18
s_5  Batch 2 code_0 74.29 26.37
s_6  Batch 2 code_1 66.82 26.39
s_7  Batch 1 code_0 65.00 29.00
s_8  Batch 2 code_1 66.51 26.13
s_9  Batch 2 code_0 70.23 27.26
s_10 Batch 1 code_1 55.00 25.00
> metabolitedata_eg<-alldata_eg$metabolitedata
> dataview(metabolitedata_eg)

 - The data consists of 128 rows by 4 columns 

   names IS neg_controls pos_controls_gender
1    m_1  0            1                   0
2    m_2  0            1                   0
3    m_3  0            1                   0
4    m_4  0            0                   0
5    m_5  0            0                   0
6    m_6  0            0                   0
7    m_7  0            0                   0
8    m_8  0            1                   0
9    m_9  0            1                   0
10  m_10  0            1                   0
> 
> logdata <- LogTransform(featuredata_eg)
> dataview(logdata$featuredata)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
NormalizeMets
 --- call from context --- 
dataview(logdata$featuredata)
 --- call from argument --- 
if (class(data) %in% c("list")) stop("Input data must be a vector, a matrix, or a dataframe")
 --- R stacktrace ---
where 1: dataview(logdata$featuredata)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (data) 
{
    if (class(data) %in% c("list")) 
        stop("Input data must be a vector, a matrix, or a dataframe")
    data <- as.data.frame(data)
    hdata <- data
    dsize <- dim(hdata)
    if (dsize[1] > 10) {
        hdata <- hdata[1:10, ]
    }
    if (dsize[2] > 8) {
        hdata <- hdata[, 1:9]
        hdata[, 9] <- rep("...", nrow(hdata))
        colnames(hdata)[9] <- "..."
    }
    write(paste("\n - The data consists of ", dsize[1], " rows by ", 
        dsize[2], " columns \n", sep = ""), "")
    return(hdata)
}
<bytecode: 0x5609fef88e48>
<environment: namespace:NormalizeMets>
 --- function search by body ---
Function dataview in namespace NormalizeMets has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(data) %in% c("list")) stop("Input data must be a vector, a matrix, or a dataframe") : 
  the condition has length > 1
Calls: dataview
Execution halted