From bfcc2bf28128cf04a3cf7fc80e9bfb1b3226f8c5 Mon Sep 17 00:00:00 2001
From: Cristianetaniguti <chaytaniguti@gmail.com>
Date: Mon, 13 Oct 2025 15:49:11 -0400
Subject: [PATCH] avoid object name overlap in get

---
 R/mod_upload.R                                | 12 +++++-----
 .../shinyapps.io/cris-taniguti/viewpoly.dcf   | 22 ++++++++-----------
 2 files changed, 15 insertions(+), 19 deletions(-)

diff --git a/R/mod_upload.R b/R/mod_upload.R
index 85af65d..abb419e 100644
--- a/R/mod_upload.R
+++ b/R/mod_upload.R
@@ -705,8 +705,8 @@ mod_upload_server <- function(input, output, session, parent_session){
       if(!is.null(input$gwaspoly)) {
         
         for(i in 1:length(input$gwaspoly$datapath)){
-          temp <- load(input$gwaspoly$datapath[i])
-          gwaspoly_temp <- get(temp)
+          temp123 <- load(input$gwaspoly$datapath[i])
+          gwaspoly_temp <- get(temp123)
           gwaspoly_list <- GWAS_data_from_gwaspoly(gwaspoly_temp)
 
           if(i == 1) gwaspoly <- gwaspoly_list else {
@@ -803,8 +803,8 @@ mod_upload_server <- function(input, output, session, parent_session){
           warning("Upload a viewpoly dataset or select one available in your R environment before submit.")
           viewpoly.obj <- NULL
         } else if(!is.null(input$viewpoly_input)){
-          temp <- load(input$viewpoly_input$datapath)
-          viewpoly.obj <- get(temp)
+          temp123 <- load(input$viewpoly_input$datapath)
+          viewpoly.obj <- get(temp123)
         } else if(!is.null(input$viewpoly_env)) {
           viewpoly.obj = get(input$viewpoly_env)
         }  
@@ -840,8 +840,8 @@ mod_upload_server <- function(input, output, session, parent_session){
     if(!is.null(input_map()$onemap_in)){
       withProgress(message = 'Working:', value = 0, {
         incProgress(0.3, detail = paste("Uploading OneMap data..."))
-        temp <- load(input_map()$onemap_in$datapath)
-        viewmap <- get(temp)
+        temp123 <- load(input_map()$onemap_in$datapath)
+        viewmap <- get(temp123)
         viewmap
       })
     } else NULL
diff --git a/rsconnect/shinyapps.io/cris-taniguti/viewpoly.dcf b/rsconnect/shinyapps.io/cris-taniguti/viewpoly.dcf
index 5fa2d97..ed98b70 100644
--- a/rsconnect/shinyapps.io/cris-taniguti/viewpoly.dcf
+++ b/rsconnect/shinyapps.io/cris-taniguti/viewpoly.dcf
@@ -1,13 +1,9 @@
-name: viewpoly
-title:
-username:
-account: cris-taniguti
-server: shinyapps.io
-hostUrl: https://api.shinyapps.io/v1
-appId: 6168763
-bundleId: 6007678
-url: https://cris-taniguti.shinyapps.io/viewpoly/
-when: 1655233932.08367
-lastSyncTime: 1655233932.08367
-asMultiple: FALSE
-asStatic: FALSE
+name: viewpoly
+title:
+username:
+account: cris-taniguti
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 6168763
+bundleId: 9945646
+url: https://cris-taniguti.shinyapps.io/viewpoly/