rm GUSMap

DESCRIPTION

@@ -18,7 +18,6 @@ Imports:
     dplyr,
     tidyr,
     onemap,
-    GUSMap,
     ggpubr,
     plotly,
     ggplot2,

NAMESPACE

@@ -6,11 +6,11 @@ export(efficiency_graphics_mem_cpu)
 export(efficiency_graphics_perc)
 export(efficiency_table)
 export(run_app)
-import(GUSMap)
 import(dplyr)
 import(ggVennDiagram)
 import(ggplot2)
 import(lubridate)
+import(mappoly)
 import(onemap)
 import(plotly)
 import(shiny)

R/mod_dat_poly.R

@@ -49,9 +49,7 @@ mod_dat_poly_ui <- function(id){
 
 #' dat_poly Server Functions
 #' 
-#' @importFrom ggpubr ggarrange
-#' @import onemap
-#' @import GUSMap
+#' @import mappoly
 #' @importFrom grDevices dev.off pdf rainbow
 #'
 #' @noRd 

R/mod_emp_maps.R

@@ -54,7 +54,6 @@ mod_emp_maps_ui <- function(id){
 #' 
 #' @importFrom ggpubr ggarrange
 #' @import onemap
-#' @import GUSMap
 #' @importFrom grDevices dev.off pdf rainbow
 #'
 #' @noRd 

R/mod_simu_maps.R

@@ -71,7 +71,6 @@ mod_simu_maps_ui <- function(id){
 #' simu_maps Server Functions
 #'
 #' @import onemap
-#' @import GUSMap
 #' 
 #' @noRd 
 mod_simu_maps_server <- function(input, output, session, datas_simu){
@@ -150,7 +149,7 @@ mod_simu_maps_server <- function(input, output, session, datas_simu){
                                  snpcall = input$SNPCall, countsfrom = input$CountsFrom,
                                  data_names = names(datas_simu()[[6]]))
           data <- datas_simu()[[6]][[temp_n]]
-          data$rf_2pt()
+          GUSMap::data$rf_2pt()
           incProgress(0.5, detail = paste("Doing part", 3))
         } else {
           temp_n <- map_name(depth, seed, geno, fake,
@@ -168,7 +167,7 @@ mod_simu_maps_server <- function(input, output, session, datas_simu){
 
     output$map_out <- renderPlot({
       if(button1()[[2]] == "gusmap"){
-        button1()[[1]]$plotChr(mat="rf", parent = "both")
+        GUSMap::button1()[[1]]$plotChr(mat="rf", parent = "both")
       } else {
         rf_graph_table(button1()[[1]], inter = F, mrk.axis = "none")
       }