upload

urniaz · Aug 18, 2024 · 631db96 · 631db96
1 parent 58a9ec0
commit 631db96
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/inst/source/tabs/tab1/server.R b/inst/source/tabs/tab1/server.R
@@ -4,10 +4,20 @@
 # Upload Project File
 output$contents <- renderText({
 
+  # Upload
   file <- input$UploadProjectFile
   ext <- tools::file_ext(file$datapath)
-
   req(file)
   validate(need(ext == "zip", "Please upload a zip file"))
 
+  # Unzip 
+  path <- dirname(file$datapath)
+  utils::unzip(file$datapath, exdir = path)
+
+  # Copy to Temp Proj Dri
+  file.copy(paste0(path,'/config.yaml'), config$TempProjPath, recursive=TRUE)
+  file.copy(paste0(path,'/tabs'), config$TempProjPath, recursive=TRUE)
+
+  as.character(paste0(path,"/+/" ,config$TempProjPath))
+
 })
diff --git a/inst/source/tabs/tab1/ui.R b/inst/source/tabs/tab1/ui.R
@@ -25,9 +25,9 @@ fluidPage(
      br(),
         fileInput(ns("UploadProjectFile"), NULL, accept = ".zip", multiple = FALSE),
      HTML("</center>"),
+     verbatimTextOutput(ns('contents'))
  )
 )
 
-verbatimTextOutput(ns('contents'))
 
 # zawsze ns() do id !!!!! lacznie z output każdy id z ns() !!!!!