plot() returns error with stars object in ea_spatial data slot

[claysa]

Plotting an ea_spatial object with a stars object in the data slot returns an error (see reproducible example below).

library(stars)
library(marea)

df <- expand.grid(x=1:4, y=1:4, time=1:2)
df$value <- 1:nrow(df)
df <- st_as_stars(df, dims = c("x","y","time"))

df <- as_ea_spatial(df, value_col="value")

plot(df@data)

plot(df, style="fill")

The first "plot" is successful, but the second returns this error:

Error in fortify():
! data must be a <data.frame>, or an object coercible by fortify(), or a valid
<data.frame>-like object coercible by as.data.frame().
Caused by error in .prevalidate_data_frame_like_object():
! dim(data) must return an of length 2.

[EOGrady21]

@claysa I think I've fixed this in my dev branch, if you have time maybe test it with a nontrivial stars object before I push to main?

[claysa]

Seems to be working! Just had to make sure the stars object had a crs, otherwise it gave "Error: crs not found: is it missing?" However it's only plotting the last layer, I expected it to plot them all (but we'll have to discuss how it should handle the satellite_ocean_colour object since it has 135 layers (5 variables x 27 years))...

library(stars)
df <- expand.grid(x=-63:-60, y=43:45, time=1:2)
df$value <- 1:nrow(df)
df <- st_as_stars(df, dims = c("x","y","time"))
st_crs(df) <- "EPSG:4326"
df <- as_ea_spatial(df, value_col="value")
plot(df, style="fill")