fix error due to changes in glue 1.8.0

* as the release notes say:

The .envir argument to glue() and glue_data() really must be an environment now, as documented. Previously a list-ish object worked in some cases (by accident, not really by design). When you need to lookup values in a list-ish object, use glue_data(.x =) (#308, #317). Ditto for glue_sql() and glue_data_sql().

R/cosine.R

@@ -182,7 +182,7 @@ neuprint_cosine_plot <- function(x, partners=c('inputs', 'outputs'), threshold=5
 
   if(is.character(labRow) && length(labRow)==1 && any(grepl("\\{", labRow))) {
     ci=neuprintr::neuprint_get_meta(rownames(x), conn=conn)
-    labRow <- glue::glue(labRow, .envir = ci)
+    labRow <- glue::glue_data(labRow, .x = ci)
   }
 
   if(interactive) {