CRAN Package Check Results for Package NormalizeMets

Last updated on 2020-02-19 10:49:01 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.25 14.39 144.18 158.57 ERROR
r-devel-linux-x86_64-debian-gcc 0.25 12.34 107.26 119.60 ERROR
r-devel-linux-x86_64-fedora-clang 0.25 198.67 ERROR
r-devel-linux-x86_64-fedora-gcc 0.25 188.80 ERROR
r-devel-windows-ix86+x86_64 0.25 29.00 200.00 229.00 NOTE
r-devel-windows-ix86+x86_64-gcc8 0.25 43.00 266.00 309.00 NOTE
r-patched-linux-x86_64 0.25 13.36 166.81 180.17 OK
r-patched-solaris-x86 0.25 189.10 WARN
r-release-linux-x86_64 0.25 11.05 164.02 175.07 OK
r-release-windows-ix86+x86_64 0.25 23.00 187.00 210.00 NOTE
r-release-osx-x86_64 0.25 WARN
r-oldrel-windows-ix86+x86_64 0.25 19.00 201.00 220.00 NOTE
r-oldrel-osx-x86_64 0.25 WARN

Check Details

Version: 0.25
Check: examples
Result: ERROR
    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: 0x6a9d2c0>
    <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
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building 'NormalizeMets_vignette.Rmd' using rmarkdown
    Warning: Zero sample variances detected, have been offset away from zero
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    NormalizeMets
     --- call from context ---
    dataview(uv_ruvrandclust$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(uv_ruvrandclust$featuredata)
    where 2: eval(expr, envir, enclos)
    where 3: eval(expr, envir, enclos)
    where 4: withVisible(eval(expr, envir, enclos))
    where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
     error = eHandler, message = mHandler)
    where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
     enclos)), warning = wHandler, error = eHandler, message = mHandler))
    where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
     debug = debug, last = i == length(out), use_try = stop_on_error !=
     2L, keep_warning = keep_warning, keep_message = keep_message,
     output_handler = output_handler, include_timing = include_timing)
    where 9: evaluate::evaluate(...)
    where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
     options$include) 0L else 2L, output_handler = knit_handlers(options$render,
     options))
    where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
     stop_on_error = if (options$error && options$include) 0L else 2L,
     output_handler = knit_handlers(options$render, options)))
    where 12: block_exec(params)
    where 13: call_block(x)
    where 14: process_group.block(group)
    where 15: process_group(group)
    where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
     error = function(e) {
     setwd(wd)
     cat(res, sep = "\n", file = output %n% "")
     message("Quitting from lines ", paste(current_lines(i),
     collapse = "-"), " (", knit_concord$get("infile"),
     ") ")
     })
    where 17: process_file(text, output)
    where 18: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    where 19: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(),
     output_dir = getwd(), ...)
    where 20: vweave_rmarkdown(...)
    where 21: engine$weave(file, quiet = quiet, encoding = enc)
    where 22: doTryCatch(return(expr), name, parentenv, handler)
    where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    where 24: tryCatchList(expr, classes, parentenv, handlers)
    where 25: tryCatch({
     engine$weave(file, quiet = quiet, encoding = enc)
     setwd(startdir)
     output <- find_vignette_product(name, by = "weave", engine = engine)
     if (!have.makefile && vignette_is_tex(output)) {
     texi2pdf(file = output, clean = FALSE, quiet = quiet)
     output <- find_vignette_product(name, by = "texi2pdf",
     engine = engine)
     }
     outputs <- c(outputs, output)
    }, error = function(e) {
     thisOK <<- FALSE
     fails <<- c(fails, file)
     message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
     file, conditionMessage(e)))
    })
    where 26: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/NormalizeMets.Rcheck/vign_test/NormalizeMets",
     ser_elibs = "/tmp/Rtmp21Lv9p/file258e1760eaf0.rds")
    
     --- 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: 0x90bb578>
    <environment: namespace:NormalizeMets>
     --- function search by body ---
    Function dataview in namespace NormalizeMets has this body.
     ----------- END OF FAILURE REPORT --------------
    Quitting from lines 458-472 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    the condition has length > 1
    --- failed re-building 'NormalizeMets_vignette.Rmd'
    
    SUMMARY: processing the following file failed:
     'NormalizeMets_vignette.Rmd'
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.25
Check: examples
Result: ERROR
    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: 0x561e3b2b2038>
    <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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building ‘NormalizeMets_vignette.Rmd’ using rmarkdown
    Warning: Zero sample variances detected, have been offset away from zero
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    NormalizeMets
     --- call from context ---
    dataview(uv_ruvrandclust$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(uv_ruvrandclust$featuredata)
    where 2: eval(expr, envir, enclos)
    where 3: eval(expr, envir, enclos)
    where 4: withVisible(eval(expr, envir, enclos))
    where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
     error = eHandler, message = mHandler)
    where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
     enclos)), warning = wHandler, error = eHandler, message = mHandler))
    where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
     debug = debug, last = i == length(out), use_try = stop_on_error !=
     2L, keep_warning = keep_warning, keep_message = keep_message,
     output_handler = output_handler, include_timing = include_timing)
    where 9: evaluate::evaluate(...)
    where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
     options$include) 0L else 2L, output_handler = knit_handlers(options$render,
     options))
    where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
     stop_on_error = if (options$error && options$include) 0L else 2L,
     output_handler = knit_handlers(options$render, options)))
    where 12: block_exec(params)
    where 13: call_block(x)
    where 14: process_group.block(group)
    where 15: process_group(group)
    where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
     error = function(e) {
     setwd(wd)
     cat(res, sep = "\n", file = output %n% "")
     message("Quitting from lines ", paste(current_lines(i),
     collapse = "-"), " (", knit_concord$get("infile"),
     ") ")
     })
    where 17: process_file(text, output)
    where 18: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    where 19: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(),
     output_dir = getwd(), ...)
    where 20: vweave_rmarkdown(...)
    where 21: engine$weave(file, quiet = quiet, encoding = enc)
    where 22: doTryCatch(return(expr), name, parentenv, handler)
    where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    where 24: tryCatchList(expr, classes, parentenv, handlers)
    where 25: tryCatch({
     engine$weave(file, quiet = quiet, encoding = enc)
     setwd(startdir)
     output <- find_vignette_product(name, by = "weave", engine = engine)
     if (!have.makefile && vignette_is_tex(output)) {
     texi2pdf(file = output, clean = FALSE, quiet = quiet)
     output <- find_vignette_product(name, by = "texi2pdf",
     engine = engine)
     }
     outputs <- c(outputs, output)
    }, error = function(e) {
     thisOK <<- FALSE
     fails <<- c(fails, file)
     message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
     file, conditionMessage(e)))
    })
    where 26: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/NormalizeMets.Rcheck/vign_test/NormalizeMets",
     ser_elibs = "/home/hornik/tmp/scratch/Rtmpu5mxXb/file7ce249fa42f3.rds")
    
     --- 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: 0x56146173d2c8>
    <environment: namespace:NormalizeMets>
     --- function search by body ---
    Function dataview in namespace NormalizeMets has this body.
     ----------- END OF FAILURE REPORT --------------
    Quitting from lines 458-472 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    the condition has length > 1
    --- failed re-building ‘NormalizeMets_vignette.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘NormalizeMets_vignette.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.25
Check: installed package size
Result: NOTE
     installed size is 9.3Mb
     sub-directories of 1Mb or more:
     doc 8.6Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 0.25
Check: dependencies in R code
Result: NOTE
    Namespace in Imports field not imported from: ‘knitr’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Version: 0.25
Check: examples
Result: ERROR
    Running examples in ‘NormalizeMets-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0x555d238>
    <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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘NormalizeMets_vignette.Rmd’ using rmarkdown
    Warning: Zero sample variances detected, have been offset away from zero
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    NormalizeMets
     --- call from context ---
    dataview(uv_ruvrandclust$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(uv_ruvrandclust$featuredata)
    where 2: eval(expr, envir, enclos)
    where 3: eval(expr, envir, enclos)
    where 4: withVisible(eval(expr, envir, enclos))
    where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
     error = eHandler, message = mHandler)
    where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
     enclos)), warning = wHandler, error = eHandler, message = mHandler))
    where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
     debug = debug, last = i == length(out), use_try = stop_on_error !=
     2L, keep_warning = keep_warning, keep_message = keep_message,
     output_handler = output_handler, include_timing = include_timing)
    where 9: evaluate::evaluate(...)
    where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
     options$include) 0L else 2L, output_handler = knit_handlers(options$render,
     options))
    where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
     stop_on_error = if (options$error && options$include) 0L else 2L,
     output_handler = knit_handlers(options$render, options)))
    where 12: block_exec(params)
    where 13: call_block(x)
    where 14: process_group.block(group)
    where 15: process_group(group)
    where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
     error = function(e) {
     setwd(wd)
     cat(res, sep = "\n", file = output %n% "")
     message("Quitting from lines ", paste(current_lines(i),
     collapse = "-"), " (", knit_concord$get("infile"),
     ") ")
     })
    where 17: process_file(text, output)
    where 18: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    where 19: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(),
     output_dir = getwd(), ...)
    where 20: vweave_rmarkdown(...)
    where 21: engine$weave(file, quiet = quiet, encoding = enc)
    where 22: doTryCatch(return(expr), name, parentenv, handler)
    where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    where 24: tryCatchList(expr, classes, parentenv, handlers)
    where 25: tryCatch({
     engine$weave(file, quiet = quiet, encoding = enc)
     setwd(startdir)
     output <- find_vignette_product(name, by = "weave", engine = engine)
     if (!have.makefile && vignette_is_tex(output)) {
     texi2pdf(file = output, clean = FALSE, quiet = quiet)
     output <- find_vignette_product(name, by = "texi2pdf",
     engine = engine)
     }
     outputs <- c(outputs, output)
    }, error = function(e) {
     thisOK <<- FALSE
     fails <<- c(fails, file)
     message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
     file, conditionMessage(e)))
    })
    where 26: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-clang/NormalizeMets.Rcheck/vign_test/NormalizeMets",
     ser_elibs = "/tmp/RtmpDxcRpX/file81cc228d90e5.rds")
    
     --- 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: 0x91829e8>
    <environment: namespace:NormalizeMets>
     --- function search by body ---
    Function dataview in namespace NormalizeMets has this body.
     ----------- END OF FAILURE REPORT --------------
    Quitting from lines 458-472 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    the condition has length > 1
    --- failed re-building ‘NormalizeMets_vignette.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘NormalizeMets_vignette.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.25
Check: examples
Result: ERROR
    Running examples in ‘NormalizeMets-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0x5103e00>
    <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
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘NormalizeMets_vignette.Rmd’ using rmarkdown
    Warning: Zero sample variances detected, have been offset away from zero
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    NormalizeMets
     --- call from context ---
    dataview(uv_ruvrandclust$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(uv_ruvrandclust$featuredata)
    where 2: eval(expr, envir, enclos)
    where 3: eval(expr, envir, enclos)
    where 4: withVisible(eval(expr, envir, enclos))
    where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
     error = eHandler, message = mHandler)
    where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
     enclos)), warning = wHandler, error = eHandler, message = mHandler))
    where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
    where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
     debug = debug, last = i == length(out), use_try = stop_on_error !=
     2L, keep_warning = keep_warning, keep_message = keep_message,
     output_handler = output_handler, include_timing = include_timing)
    where 9: evaluate::evaluate(...)
    where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
     keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
     options$include) 0L else 2L, output_handler = knit_handlers(options$render,
     options))
    where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
     keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
     stop_on_error = if (options$error && options$include) 0L else 2L,
     output_handler = knit_handlers(options$render, options)))
    where 12: block_exec(params)
    where 13: call_block(x)
    where 14: process_group.block(group)
    where 15: process_group(group)
    where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
     error = function(e) {
     setwd(wd)
     cat(res, sep = "\n", file = output %n% "")
     message("Quitting from lines ", paste(current_lines(i),
     collapse = "-"), " (", knit_concord$get("infile"),
     ") ")
     })
    where 17: process_file(text, output)
    where 18: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
    where 19: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(),
     output_dir = getwd(), ...)
    where 20: vweave_rmarkdown(...)
    where 21: engine$weave(file, quiet = quiet, encoding = enc)
    where 22: doTryCatch(return(expr), name, parentenv, handler)
    where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    where 24: tryCatchList(expr, classes, parentenv, handlers)
    where 25: tryCatch({
     engine$weave(file, quiet = quiet, encoding = enc)
     setwd(startdir)
     output <- find_vignette_product(name, by = "weave", engine = engine)
     if (!have.makefile && vignette_is_tex(output)) {
     texi2pdf(file = output, clean = FALSE, quiet = quiet)
     output <- find_vignette_product(name, by = "texi2pdf",
     engine = engine)
     }
     outputs <- c(outputs, output)
    }, error = function(e) {
     thisOK <<- FALSE
     fails <<- c(fails, file)
     message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
     file, conditionMessage(e)))
    })
    where 26: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-devel/NormalizeMets.Rcheck/vign_test/NormalizeMets",
     ser_elibs = "/tmp/Rtmphe7s7q/file83b97ab9da4.rds")
    
     --- 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: 0x8f15e70>
    <environment: namespace:NormalizeMets>
     --- function search by body ---
    Function dataview in namespace NormalizeMets has this body.
     ----------- END OF FAILURE REPORT --------------
    Quitting from lines 458-472 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    the condition has length > 1
    --- failed re-building ‘NormalizeMets_vignette.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘NormalizeMets_vignette.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building ‘NormalizeMets_vignette.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Quitting from lines 192-194 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    Saving a widget with selfcontained = TRUE requires pandoc. For details see:
    https://github.com/rstudio/rmarkdown/blob/master/PANDOC.md
    --- failed re-building ‘NormalizeMets_vignette.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘NormalizeMets_vignette.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-patched-solaris-x86, r-release-osx-x86_64

Version: 0.25
Check: re-building of vignette outputs
Result: WARN
    Error in re-building vignettes:
     ...
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Quitting from lines 192-194 (NormalizeMets_vignette.Rmd)
    Error: processing vignette 'NormalizeMets_vignette.Rmd' failed with diagnostics:
    Saving a widget with selfcontained = TRUE requires pandoc. For details see:
    https://github.com/rstudio/rmarkdown/blob/master/PANDOC.md
    Execution halted
Flavor: r-oldrel-osx-x86_64