# \donttest{
if (rlang::is_installed(pkg = c("ggplotify", "pheatmap"))) {
npx_data <- npx_data1 |>
dplyr::filter(
!stringr::str_detect(
string = .data[["SampleID"]],
pattern = "CONT"
)
)
# Heatmap
OlinkAnalyze::olink_heatmap_plot(
df = npx_data
)
# Heatmap with annotation
OlinkAnalyze::olink_heatmap_plot(
df = npx_data,
variable_row_list = c("Time", "Site")
)
# Heatmap with calls from pheatmap
OlinkAnalyze::olink_heatmap_plot(
df = npx_data,
cutree_rows = 3L
)
}
# }
Run the code above in your browser using DataLab