potential fix of #375 (cont.)

adokter · Apr 28, 2020 · 49e7e64 · 49e7e64
1 parent 65ff541
commit 49e7e64
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.vpts.R b/R/plot.vpts.R
@@ -316,7 +316,7 @@ plot_wind_barbs <- function(cx, cy, direction = 0, speed = NA,
       }
       if (fill[i] > 0) {
         lim <- c(51, 101, 151, 200)
-        polygon(c(x, X1[1:lim[fill[i]]]), c(y, Y1[1:lim[fill[i]]]),
+        polygon(c(as.numeric(x), X1[1:lim[fill[i]]]), c(y, Y1[1:lim[fill[i]]]),
           density = -1, col = col
         )
       }