1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/has_edgePar.R
\name{has_component_in_attribute}
\alias{has_component_in_attribute}
\alias{has_edgePar}
\alias{has_nodePar}
\title{Does a dendrogram has an edgePar/nodePar component?}
\usage{
has_component_in_attribute(dend, component, the_attrib = "edgePar", ...)
}
\arguments{
\item{dend}{a \link{dendrogram} object.}
\item{component}{a character value to be checked if exists in the tree. For edgePar the list: "col", "lty" and "lwd" (for the segments),
"p.col", "p.lwd", and "p.lty" (for the polygon around the text) and "t.col" for the text color.
For edgePar "pch", "cex", "col", "xpd", and/or "bg".}
\item{the_attrib}{A character of the attribute for which to check the existence of the component.
Often either "edgePar" or "nodePar".}
\item{...}{ignored}
}
\value{
Logical. TRUE if such a component is defined somewhere in the tree, FALSE otherwise.
If dend is not a dendrogram, the function will return FALSE.
}
\description{
Does a dendrogram has an edgePar/nodePar component?
}
\examples{
dat <- iris[1:20, -5]
hca <- hclust(dist(dat))
hca2 <- hclust(dist(dat), method = "single")
dend <- as.dendrogram(hca)
dend2 <- as.dendrogram(hca2)
dend \%>\%
set("branches_lwd", 2) \%>\%
set("branches_lty", 2) \%>\%
plot()
dend \%>\%
set("branches_lwd", 2) \%>\%
set("branches_lty", 2) \%>\%
has_edgePar("lty")
dend \%>\%
set("branches_lwd", 2) \%>\%
has_edgePar("lty")
dend \%>\%
set("branches_lwd", 2) \%>\%
has_edgePar("lwd")
dend \%>\%
set("branches_lwd", 2) \%>\%
set("clear_branches") \%>\%
has_edgePar("lwd")
}
\seealso{
\link{get_nodes_attr}, \link{set}
}
|
