s

DESCRIPTION

@@ -21,7 +21,7 @@ Imports:
     reshape2,
     rstudioapi
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.0
+RoxygenNote: 7.3.2
 Suggests: 
     testthat (>= 3.0.0)
 Config/testthat/edition: 3

NAMESPACE

@@ -1,6 +1,4 @@
 # Generated by roxygen2: do not edit by hand
 
 export(RunShinyWizard)
-export(ShinyWizzardIncludeCSSAndTheme)
-export(ShinyWizzardTheme)
 export(ShinyWizzardThemeSelector)

R/ShinyWizzardTheme.R

@@ -20,19 +20,22 @@ ShinyWizzardTheme <- function(name = ""){
    }
 }
 
-#' ShinyWizzardThemeSelector
+#' @title ShinyWizzardThemeSelector
 #'
+#' @description
+#' A short description...
+#' 
 #' @export
 
 ShinyWizzardThemeSelector <- function() { 
-  fluidRow(align="center",
-    selectInput("tab2-shinytheme-selector", "Theme",
+  shiny::fluidRow(align="center",
+  shiny::selectInput("tab2-shinytheme-selector", "Theme",
                 c(allThemes()),
                 selectize = FALSE,
                 selected = "flatly", # starting theme
                ),
 
-    tags$script(
+  shiny::tags$script(
       "$('#tab2-shinytheme-selector')
   .on('change', function(el) {
     var allThemes = $(this).find('option').map(function() {

inst/source/tabs/tab1/server.R

@@ -1,11 +1,14 @@
 
 
-output$contents <- renderTable({
-  file <- input$file1
-  ext <- tools::file_ext(file$datapath)
+
+# Upload Project File
+output$contents <- renderText({
 
+  file <- input$UploadProjectFile
+  ext <- tools::file_ext(file$datapath)
   req(file)
-  validate(need(ext == "zip", "Please upload a csv file"))
+  validate(need(ext == "zip", "Please upload a zip file"))
 
-  read.csv(file$datapath, header = input$header)
+  paste(file)
+
 })

inst/source/tabs/tab1/ui.R

@@ -23,9 +23,11 @@ fluidPage(
      br(),
      p("or edit an existing (*.zip)"),
      br(),
-        fileInput(ns("ProjectFile"), NULL, accept = ".zip"),
+        fileInput(ns("UploadProjectFile"), NULL, accept = ".zip", multiple = FALSE),
      HTML("</center>")
  )
 )
 
+shiny::verbatimTextOutput(ns("contents"))
+
 # zawsze ns() do id !!!!! lacznie z output każdy id z ns() !!!!!