docs: add upload ad download buttons examples

R/examples.R

@@ -14,6 +14,8 @@ NULL
 
 #' @example inst/examples/Button.R
 #' @example inst/examples/Button2.R
+#' @example inst/examples/Button3.R
+#' @example inst/examples/Button4.R
 #' @name Button
 NULL
 

inst/examples/Button3.R

@@ -0,0 +1,47 @@
+
+# Example 3
+library(shiny)
+library(shiny.fluent)
+library(shinyjs)
+
+# This example app shows how to use a Fluent UI Button to trigger a file upload.
+# File upload is not natively supported by shiny.fluent, so shinyjs is used
+# to trigger the file upload input.
+ui <- fluentPage(
+  useShinyjs(),
+  Stack(
+    tokens = list(
+      childrenGap = 10L
+    ),
+    horizontal = TRUE,
+    DefaultButton.shinyInput(
+      inputId = "uploadFileButton",
+      text = "Upload File",
+      iconProps = list(iconName = "Upload")
+    ),
+    div(
+      style = "
+        visibility: hidden;
+        height: 0;
+        width: 0;
+      ",
+      fileInput(
+        inputId = "uploadFile",
+        label = NULL
+      )
+    )
+  ),
+  textOutput("file_path")
+)
+
+server <- function(input, output) {
+  observeEvent(input$uploadFileButton, {
+    click("uploadFile")
+  })
+
+  output$file_path <- renderPrint({
+    input$uploadFile
+  })
+}
+
+shinyApp(ui, server)

inst/examples/Button4.R

@@ -0,0 +1,38 @@
+
+# Example 4
+library(shiny)
+library(shiny.fluent)
+library(shinyjs)
+
+# This example app shows how to use a Fluent UI Button to trigger a file download.
+# File download is not natively supported by shiny.fluent, so shinyjs is used
+# to trigger the file upload input.
+ui <- fluentPage(
+  useShinyjs(),
+  DefaultButton.shinyInput(
+    "downloadButton",
+    text = "Download",
+    iconProps = list(iconName = "Download")
+  ),
+  div(
+    style = "visibility: hidden;",
+    downloadButton("download", label = "")
+  )
+)
+
+server <- function(input, output, session) {
+  observeEvent(input$downloadButton, {
+    click("download")
+  })
+
+  output$download <- downloadHandler(
+    filename = function() {
+      paste("data-", Sys.Date(), ".csv", sep="")
+    },
+    content = function(file) {
+      write.csv(iris, file)
+    }
+  )
+}
+
+shinyApp(ui, server)