From ced5f0a8fd4a6c43980f1aa2dd48ba72f68a2a77 Mon Sep 17 00:00:00 2001 From: Juko Laptop Date: Mon, 25 Mar 2024 18:33:24 +0100 Subject: [PATCH] fixed #25 --- R/plot_network.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/plot_network.R b/R/plot_network.R index 15e9db8..6bc925b 100644 --- a/R/plot_network.R +++ b/R/plot_network.R @@ -287,7 +287,7 @@ plot_network <- function(data, # specifiying unique interactions NetFrame <- NetFrame[-c(is.na(NetFrame$Sender) | is.na(NetFrame$AnsweredTo)), ] NetFrame$Sender <- gsub(" ","_",NetFrame$Sender) - NetFrame$AnsweredTo <- gsub(" ","_",NetFrame$AnsweredTo) # FIXME: REMOVE THIS IF FUNCTION BREAKS + NetFrame$AnsweredTo <- gsub(" ","_",NetFrame$AnsweredTo) Interaction <- paste(NetFrame$Sender, NetFrame$AnsweredTo) Added_Netframe <- cbind.data.frame(Interaction, NetFrame)