fillcolor error related to left_join

[jrgant]

DiagrammeR's render_graph() function throws an error because left_join() throws a type error related to setting the "fillcolor" attribute.

Offending code block:

if ("fillcolor" %in% colnames(graph$nodes_df)) { graph$nodes_df <- graph$nodes_df %>% dplyr::left_join(x11_hex() %>% dplyr::as_tibble() %>% dplyr::mutate(hex = toupper(hex)), by = c(fillcolor = "x11_name")) %>% dplyr::mutate(new_fillcolor = dplyr::coalesce(hex, fillcolor)) %>% dplyr::select(-fillcolor, -hex) %>% dplyr::rename(fillcolor = new_fillcolor) }