#' 'anatomicRegion'

#'

#' anatomicRegion function represents anatomic region of each shoot

#'

#'

#' @param DICOMList you can put it like this and then run the function : DICOMList<-anatomicRegion(DICOMFolderPath)

#' @import dplyr

#' @importFrom magrittr "%>%"

#'

#'

#' @return A dataframe representing anatomic region of each shoot

#' @examples

#' DICOMList<-DICOMHeaderList(DICOMFolderPath)

#' anatomicRegion(DICOMList)

#' @export

anatomicRegion<-function(DICOMList){

    anatomicRegion<-lapply(DICOMList, function(x){

        anatomicRegion<-x[[1]]%>%filter(name %in% c('BodyPartExamined', 'StudyDescription', 'SeriesDescription')) %>% select(value)

        colnames(anatomicRegion)<-'anatomicRegion'

        anatomicRegion<-sapply(anatomicRegion, function(x){

            if(grepl('chest', tolower(anatomicRegion))==T){

                return('chest')

            }

            else if(grepl('head', tolower(anatomicRegion))==T){

                return('head')

            }

            else if(grepl('brain', tolower(anatomicRegion))==T){

                return('head')

            }

            else if(grepl('neck', tolower(anatomicRegion))==T){

                return('neck')

            }

            else if(grepl('abdomen', tolower(anatomicRegion))==T){

                return('abdomen')

            }

            else{

                return('others')

            }

        })

        anatomicRegion<-as.data.frame(anatomicRegion)

        rownames(anatomicRegion)<-c()

        colnames(anatomicRegion)<-c('anatomicRegion')

        return(anatomicRegion)})

    anatomicRegion<-do.call(rbind, anatomicRegion)

    return(anatomicRegion)

}