geom_seqlogo + facet_msa

[acpguedes]

Hi

I'm trying to figure out how I breaking down alignment and plot each part with logo.

library(ggmsa)
protein_sequences <- system.file("extdata", "sample.fasta", package = "ggmsa")
ggmsa(protein_sequences, end = 300, font = NULL, color = "Chemistry_AA") + 
    facet_msa(field = 100) + 
    geom_seqlogo()
#Error in `$<-.data.frame`(`*tmp*`, "PANEL", value = c(1L, 1L, 1L, 1L,  : 
#  replacement has 2700 rows, data has 104177  
ggmsa(protein_sequences, end = 300, font = NULL, color = "Chemistry_AA") + 
    geom_seqlogo() + 
    facet_msa(field = 100)
#Error in FUN(X[[i]], ...) : object 'group' not found

Thanks in advance