I'd expect this code to produce the following ```r plot_ly() %>% add_trace( x = c(1, 2, 3), y = c(1, 2, 1), text = paste0("point", 1:3), fill = "toself", mode = "markers+lines", hoveron = "fills+points" ) ```  But currently it does: 