FixVis does not return modified plot command

[splaisan]

🐛 Bug

"Plot to R console" does not seem to bring the resulting code back to the RStudio Rscript

To Reproduce

Steps to reproduce the behavior:

1. open fixvis shiny interface with a plot from a Rscript being edited in RStudio
2. modify the plot parameters
3. click on "Plot to R console"

Expected behavior

a block of code to produce the same plot in the Rscript

> sessionInfo()
R version 4.0.2 (2020-06-22)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 16.04.7 LTS

Matrix products: default
BLAS:   /usr/lib/openblas-base/libblas.so.3
LAPACK: /usr/lib/libopenblasp-r0.2.18.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=en_US.UTF-8    LC_PAPER=en_US.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

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

other attached packages:
 [1] immunarch_0.6.5     patchwork_1.0.1     dtplyr_1.0.1        igraph_1.2.5        gridExtra_2.3       BiocManager_1.30.10 RColorBrewer_1.1-2 
 [8] stringr_1.4.0       forcats_0.5.0       scales_1.1.1        NMF_0.23.0          Biobase_2.48.0      BiocGenerics_0.34.0 cluster_2.1.0      
[15] rngtools_1.5        pkgmaker_0.31.1     registry_0.5-1      ggplot2_3.3.2       reshape2_1.4.4      dplyr_1.0.1         data.table_1.13.0  

loaded via a namespace (and not attached):
 [1] doParallel_1.0.15   prabclus_2.3-2      UpSetR_1.4.0        tools_4.0.2         backports_1.1.8     R6_2.4.1            colorspace_1.4-1   
 [8] nnet_7.3-14         withr_2.2.0         tidyselect_1.1.0    curl_4.3            compiler_4.0.2      cli_2.0.2           factoextra_1.0.7   
[15] diptest_0.75-7      DEoptimR_1.0-8      robustbase_0.93-6   readr_1.3.1         digest_0.6.25       foreign_0.8-80      rio_0.5.16         
[22] pkgconfig_2.0.3     htmltools_0.5.0     bibtex_0.4.2.2      fastmap_1.0.1       rlang_0.4.7         GlobalOptions_0.1.2 readxl_1.3.1       
[29] rstudioapi_0.11     shiny_1.5.0         shape_1.4.4         generics_0.0.2      mclust_5.4.6        zip_2.1.0           car_3.0-9          
[36] magrittr_1.5        modeltools_0.2-23   Rcpp_1.0.5          munsell_0.5.0       fansi_0.4.1         abind_1.4-5         lifecycle_0.2.0    
[43] stringi_1.4.6       yaml_2.2.1          ggalluvial_0.12.1   carData_3.0-4       MASS_7.3-51.6       flexmix_2.3-15      plyr_1.8.6         
[50] grid_4.0.2          ggseqlogo_0.1       promises_1.1.1      ggrepel_0.8.2       crayon_1.3.4        lattice_0.20-41     haven_2.3.1        
[57] circlize_0.4.10     hms_0.5.3           knitr_1.29          pillar_1.4.6        ggpubr_0.4.0        fpc_2.2-7           ggsignif_0.6.0     
[64] codetools_0.2-16    stats4_4.0.2        glue_1.4.1          httpuv_1.5.4        vctrs_0.3.2         foreach_1.5.0       cellranger_1.1.0   
[71] gtable_0.3.0        purrr_0.3.4         tidyr_1.1.1         kernlab_0.9-29      assertthat_0.2.1    xfun_0.16           gridBase_0.4-7     
[78] openxlsx_4.1.5      mime_0.9            xtable_1.8-4        broom_0.7.0         later_1.1.0.1       rstatix_0.6.0       class_7.3-17       
[85] pheatmap_1.0.12     tibble_3.0.3        shinythemes_1.1.2   iterators_1.0.12    ellipsis_0.3.1