# \donttest{
dm_path <- system.file(
"extdata",
"mini_datamatrix.txt",
package="W4MRUtils"
)
vm_path <- system.file(
"extdata",
"mini_variablemetadata.txt",
package="W4MRUtils"
)
sm_path <- system.file(
"extdata",
"mini_samplemetadata.txt",
package="W4MRUtils"
)
## import considering # is not a comment character
A <- W4MRUtils::import3(dm_path, sm_path, vm_path)
print(A$dataMatrix[1:5, 1:5])
print(A$sampleMetadata[1:5, ])
print(A$variableMetadata[1:5, ])
## import considering # is a comment character
B <- W4MRUtils::import3(dm_path, sm_path, vm_path, disable_comm = FALSE)
print(B$dataMatrix[1:5, 1:5])
print(B$sampleMetadata[1:5, ])
print(B$variableMetadata[1:5, ])
# }
Run the code above in your browser using DataLab