From ece3a80215ff0409815a1a50cf026c9b29220e86 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 4 Feb 2022 13:57:23 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20opci=C3=B3n=20de=20cambio=20de=20?=
 =?UTF-8?q?color=20a=20theme=5Fheatmap.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/theme_heatmap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/theme_heatmap.R b/R/theme_heatmap.R
index d66325b..0eac815 100644
--- a/R/theme_heatmap.R
+++ b/R/theme_heatmap.R
@@ -1,5 +1,5 @@
-theme_heatmap<-function(x){
-  list(geom_tile(),
+theme_heatmap<-function(x,line.color="#FFFFFF00"){
+  list(geom_tile(color=line.color),
        scale_fill_gradientn(colors=col2(200)),
        theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust=0.5),
              panel.background = element_blank(),