zip

urniaz · Aug 18, 2024 · c1db425 · c1db425
1 parent 97770bd
commit c1db425
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 14 deletions.
diff --git a/inst/source/tabs/tab1/server.R b/inst/source/tabs/tab1/server.R
@@ -2,12 +2,14 @@
 
 
 # Upload Project File
-output$contents <- renderTable({
-  file <- input$file1
+output$contents <- renderText({
+
+  file <- input$UploadProjectFile
   ext <- tools::file_ext(file$datapath)
 
   req(file)
-  validate(need(ext == "csv", "Please upload a csv file"))
+  validate(need(ext == "zip", "Please upload a zip file"))
+
+  as.character(file)
 
-  read.csv(file$datapath, header = input$header)
 })
diff --git a/inst/source/tabs/tab1/ui.R b/inst/source/tabs/tab1/ui.R
@@ -25,17 +25,9 @@ fluidPage(
      br(),
         fileInput(ns("UploadProjectFile"), NULL, accept = ".zip", multiple = FALSE),
      HTML("</center>"),
-
-     sidebarLayout(
-       sidebarPanel(
-         fileInput(ns("file1"), "Choose CSV File", accept = ".csv"),
-         checkboxInput("header", "Header", TRUE)
-       ),
-       mainPanel(
-         tableOutput(ns("contents"))
-       )
-     )
  )
 )
 
+verbatimTextOutput(ns('contents'))
+
 # zawsze ns() do id !!!!! lacznie z output każdy id z ns() !!!!!