fhir_rm_div.Rd

% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/miscellaneous.R
\name{fhir_rm_div}
\alias{fhir_rm_div}
\title{Remove html elements}
\usage{
fhir_rm_div(x)
}
\arguments{
\item{x}{A \linkS4class{fhir_bundle_xml} or \linkS4class{fhir_bundle_list} object or a character vector
containing xml objects.}
}
\value{
An object of the same class as \code{x} where all tags matching the \code{tag} argument are removed.
}
\description{
This function is a convenience wrapper for \code{\link[=fhir_rm_tag]{fhir_rm_tag()}} that removes all \verb{<div> </div>} elements from an xml.
\code{div} tags in FHIR resources contain html code, which is often server generated and in most cases neither relevant nor
usable for data analysis.
}
\examples{

#Example 1: Remove div tags from xmls in a character vector
string <- c("Hallo<div>Please<p>Remove Me</p></div> World!",
            "A<div><div><p>B</p></div>C</div>D")

fhir_rm_div(x = string)




#Example 2: Remove div tags in a single fhir bundle
bundle <- fhir_unserialize(patient_bundles)[[1]]

#example bundle contains html parts in div tags:
cat(toString(bundle))

#remove html parts
bundle_cleaned <- fhir_rm_div(x = bundle)

#have a look at the result
cat(toString(bundle_cleaned))





#Example 3: Remove div tags in a list of fhir bundles
bundle_list <- fhir_unserialize(patient_bundles)


#remove html parts
bundle_list_cleaned <- fhir_rm_div(x = bundle_list)

#check out how much the size of the bundle list is reduced by removing html
size_with_html <- sum(sapply(bundle_list, function(x)object.size(toString(x))))
size_without_html <- sum(sapply(bundle_list_cleaned, function(x)object.size(toString(x))))

size_without_html/size_with_html

}
\seealso{
\code{\link[=fhir_rm_tag]{fhir_rm_tag()}}
}