test2

library(ComplexHeatmap)

## Loading required package: grid

## ========================================
## ComplexHeatmap version 2.13.4
## Bioconductor page: http://bioconductor.org/packages/ComplexHeatmap/
## Github page: https://github.com/jokergoo/ComplexHeatmap
## Documentation: http://jokergoo.github.io/ComplexHeatmap-reference
## 
## If you use it in published research, please cite either one:
## - Gu, Z. Complex Heatmap Visualization. iMeta 2022.
## - Gu, Z. Complex heatmaps reveal patterns and correlations in multidimensional 
##     genomic data. Bioinformatics 2016.
## 
## 
## The new InteractiveComplexHeatmap package can directly export static 
## complex heatmaps into an interactive Shiny app with zero effort. Have a try!
## 
## This message can be suppressed by:
##   suppressPackageStartupMessages(library(ComplexHeatmap))
## ========================================

library(InteractiveComplexHeatmap)

## ========================================
## InteractiveComplexHeatmap version 1.5.2
## Bioconductor page: http://bioconductor.org/packages/InteractiveComplexHeatmap/
## Github page: https://github.com/jokergoo/InteractiveComplexHeatmap
## 
## If you use it in published research, please cite:
## Gu, Z. Make Interactive Complex Heatmaps in R, 2021, Bioinformatics
## 
## This message can be suppressed by:
##   suppressPackageStartupMessages(library(InteractiveComplexHeatmap))
## ========================================

data = read.csv('LRpairs.csv', row.names = 1)

df = data[, 1:16]
mat = data[, 17:ncol(data)]

mat = t(mat)

ht1 = Heatmap(mat, top_annotation = HeatmapAnnotation(df = df))

## `use_raster` is automatically set to TRUE for a matrix with more than
## 2000 columns You can control `use_raster` argument by explicitly
## setting TRUE/FALSE to it.
## 
## Set `ht_opt$message = FALSE` to turn off this message.

htShiny(ht1, width1 = 1000, height1 = 1000)

## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.

Shiny applications not supported in static R Markdown documents