Simple plot crashes RStudio 1.4 dailies

[calpan]

The second plot in the following code reliably crashes the daily builds of RStudio 1.4 (builds 708 and 834) for me. It works fine in 1.3.

library(tidyverse)
library(palmerpenguins)

# labels of similar size
label1 = rep('abcdefg:1234567', 7) %>% paste0(collapse='\n')
summ = summary(select(penguins, bill_depth_mm)) %>% paste0(collapse = '\n')

# works fine
ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = label1)

# crashes RStudio
ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ)

R version 4.0.2 (2020-06-22)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19041)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] palmerpenguins_0.1.0 forcats_0.5.0        stringr_1.4.0        dplyr_1.0.1          purrr_0.3.4          readr_1.3.1         
 [7] tidyr_1.1.1          tibble_3.0.3         ggplot2_3.3.2        tidyverse_1.3.0     

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.5       cellranger_1.1.0 pillar_1.4.6     compiler_4.0.2   dbplyr_1.4.4     tools_4.0.2      jsonlite_1.7.0  
 [8] lubridate_1.7.9  lifecycle_0.2.0  gtable_0.3.0     pkgconfig_2.0.3  rlang_0.4.7      reprex_0.3.0     cli_2.0.2       
[15] DBI_1.1.0        rstudioapi_0.11  yaml_2.2.1       haven_2.3.1      withr_2.2.0      xml2_1.3.2       httr_1.4.1      
[22] fs_1.4.1         generics_0.0.2   vctrs_0.3.4      hms_0.5.3        grid_4.0.2       tidyselect_1.1.0 glue_1.4.2      
[29] R6_2.4.1         fansi_0.4.1      readxl_1.3.1     modelr_0.1.8     blob_1.2.1       magrittr_1.5     backports_1.1.8 
[36] scales_1.1.1     ellipsis_0.3.1   rvest_0.3.5      assertthat_0.2.1 colorspace_1.4-1 stringi_1.4.6    munsell_0.5.0   
[43] broom_0.7.0      crayon_1.3.4    

[jonathan]

I tried your code on two different machines (one macOS, one Windows) but wasn't able to reproduce the crash (on RStudio 1.4.842). Does it still reproduce for you on that build? :-/ Do you have RStudio's crash reporting enabled?

[calpan]

Yes, it still reproduces for me on 1.4.842.

I have crash reporting enabled, but I'm not sure it gets to that point because the session aborts.

[calpan]

The crash seems to be exclusive to the AGG graphics backend when the last character of a line in the label is a space preceded by any non-space character. It does not occur with the Windows and Cairo backends.

library(tidyverse)
library(palmerpenguins)

# labels of similar size
label1 = rep('abcdefg:1234567', 7) %>% paste0(collapse='\n')
label2 = rep('abcdefg:123456 ', 7) %>% paste0(collapse='\n')
label3 = rep(' abcdef:1234567', 7) %>% paste0(collapse='\n')
summ = summary(select(penguins, bill_depth_mm)) %>% paste0(collapse = '\n')
summ2 = summary(select(penguins, bill_depth_mm)) %>% str_remove_all(' +$') %>% paste0(collapse = '\n')

# these 5 plots work fine
ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = label1)

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = label3)

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ2)

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ2 %>% sprintf(' \n%s', .))

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ2 %>% sprintf('  \n%s', .))

# these 3 plots crash RStudio with AGG backend (trailing space(s) in label)
ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = label2)

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ)

ggplot(penguins, aes(x = bill_depth_mm)) +
  geom_histogram(bins = 100) +
  annotate('label', x = Inf, y = Inf, hjust = 1, vjust = 1, label = summ2 %>% sprintf('1 \n%s', .))

[jonathan]

Thanks, that's helpful, but I can't reproduce even with AGG, so there must be some other variable in play...

What version of the ragg package do you have?

Does this code produce plots for you w/o crashing when you use ragg outside of RStudio (i.e. in the plain R GUI)?

[calpan]

Ok, looks like updating ragg to 0.3.1 fixed it. I was on 0.2.0 before. Thanks!

[jonathan]

@calpan

Ok, looks like updating ragg to 0.3.1 fixed it. I was on 0.2.0 before

Whew, glad that's all it was. Thanks for following up!