d

urniaz · Aug 18, 2024 · d27c7c9 · d27c7c9
1 parent 222e756
commit d27c7c9
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 7 deletions.
diff --git a/inst/source/tabs/tab1/server.R b/inst/source/tabs/tab1/server.R
@@ -2,13 +2,12 @@
 
 
 # Upload Project File
-output$contents <- renderText({
-
-  file <- input$UploadProjectFile
+output$contents <- renderTable({
+  file <- input$file1
   ext <- tools::file_ext(file$datapath)
+
   req(file)
-  validate(need(ext == "zip", "Please upload a zip file"))
+  validate(need(ext == "csv", "Please upload a csv file"))
 
-  paste("gfdcvbhg")
-
+  read.csv(file$datapath, header = input$header)
 })
diff --git a/inst/source/tabs/tab1/ui.R b/inst/source/tabs/tab1/ui.R
@@ -28,6 +28,16 @@ fluidPage(
  )
 )
 
-verbatimTextOutput(ns("contents"))
+fluidPage(
+  sidebarLayout(
+    sidebarPanel(
+      fileInput("file1", "Choose CSV File", accept = ".csv"),
+      checkboxInput("header", "Header", TRUE)
+    ),
+    mainPanel(
+      tableOutput("contents")
+    )
+  )
+)
 
 # zawsze ns() do id !!!!! lacznie z output każdy id z ns() !!!!!