R/keep_tags.R

In neuroconductor-devel/dcmsort: Sort DICOM Images

#' Tags to Keep for Filtering
#'
#' @return Character vector
#' @export
#'
#' @examples
#' relevant_tags()
relevant_tags = function() {
  x = c("(0008,0008)", "(0008,0060)", "(0018,1210)",
    "(0018,1160)", "(0018,1151)", "(0018,0081)",
    "(0018,1150)", "(0018,0080)", "(0008,9007)",
    "(0018,9316)", "(0018,0050)", "(0018,0010)",
    "(0028,0030)", "(0008,2112)", "(0008,103e)",
    "(0008,1030)", "(0028,1050)", "(0028,1051)",
    "(0028,1055)",
    "(0018,1152)", # Exposure
    "(0018,0010)", # Contrast/Bolus Agent
    # http://dicom.nema.org/medical/dicom/current/output/chtml/part03/sect_C.7.6.4.html
    "(0028,1050)", # WindowCenter
    "(0028,1051)", # WindowWidth
    "(0008,0050)", #AccessionNumber
    "(0020,0012)", #AcquisitionNumber
    "(0020,0011)" # SeriesNumber

  )
  x = unique(x)
  x
}

#' @export
#' @rdname relevant_tags
relevant_fields = function() {
  no_double = c("ConvolutionKernel", "ImageType", "Modality", "PixelSpacing",
                "SeriesDescription",
                "SliceThickness", "StudyDescription",
                "WindowWidth", "WindowCenter",
                # "SeriesNumber",
                "AccessionNumber", "AcquisitionNumber")
}