Nothing
##
## Copyright (c) 2010-2014, Brandon Whitcher
## All rights reserved.
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are
## met:
##
## * Redistributions of source code must retain the above copyright
## notice, this list of conditions and the following disclaimer.
## * Redistributions in binary form must reproduce the above
## copyright notice, this list of conditions and the following
## disclaimer in the documentation and/or other materials provided
## with the distribution.
## * Neither the name of Rigorous Analytics Ltd. nor the names of
## its contributors may be used to endorse or promote products
## derived from this software without specific prior written
## permission.
##
## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
## "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
## LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
## A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
## HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
## DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
## THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
## (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
## OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
##
## $Id: $
##
dicomInfo <- function(fname, endian="little", flipud=TRUE, skip128=TRUE,
DICM=TRUE, skipSequence=FALSE, pixelData=TRUE,
warn=-1, debug=FALSE) {
readDICOMFile(fname, endian=endian, flipud=flipud,
skipSequence=skipSequence, pixelData=pixelData,
warn=warn, debug=debug)
}
dicomSeparate <- function(path, verbose=FALSE, counter=100, recursive=TRUE,
exclude=NULL, ...) {
readDICOM(path, recursive=recursive, exclude=exclude, verbose=verbose,
counter=counter, ...)
}
readDICOM <- function(path, recursive=TRUE, exclude=NULL, verbose=FALSE,
counter, ...) {
if (length(list.files(path)) == 0 && file.exists(path)) {
filenames <- path
} else {
if (recursive) {
filenames <- list.files(path, full.names=TRUE, recursive=TRUE)
} else {
filenames <- list.files(path, full.names=TRUE)
}
}
if (! is.null(exclude)) {
filenames <- grep(exclude, filenames, ignore.case=TRUE, value=TRUE,
invert=TRUE)
}
nfiles <- length(filenames)
nch <- nchar(as.character(nfiles))
headers <- images <- vector("list", nfiles)
names(images) <- names(headers) <- filenames
if (verbose) {
cat(" ", nfiles, "files to be processed by readDICOM()", fill=TRUE)
tpb <- txtProgressBar(min=0, max=nfiles, style=3)
}
for (i in 1:nfiles) {
if (verbose) {
setTxtProgressBar(tpb, i)
}
dcm <- readDICOMFile(filenames[i], ...)
images[[i]] <- dcm$img
headers[[i]] <- dcm$hdr
}
if (verbose) {
close(tpb)
}
list(hdr=headers, img=images)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.