fix error in i_set_edge_attr(x, attr(value, name), color code consist…

[alperdomo]

Dear Suoqin Jin,

When using netVisual_diffInteraction(), the step to check if sum(edge.start[,2]==edge.start[,1])!=0 {} and assign values directly to the igraph edges attribute sometimes results in an error that is reiterative when plotting different pathways (See below). To overcome the issue, it would be much more convenient to check and overwrite the edges of the "loop.angle" variable before and pass it to the feature edge.loop.angle=loop.angle from plot().

I also added a step to select and define color.use before remove.isolate to preserve consistency in the cell state color code when plotting multiple pathways within a single dataset, across datasets with the same cell states, but also across other functions from CellChat, for instance, netVisual_chord_gene().

Best regards,

Alvaro

Error in i_set_edge_attr(x, attr(value, "name"), index = value, value = attr(value, : Length of new attribute value must be 1 or 17.
stop("Length of new attribute value must be ", if (length(index) != 1) "1 or ", length(index), ", the number of target edges, not ", length(value))