dataOutput: Shiny module for data output

In DataEditR: An Interactive Editor for Viewing, Entering, Filtering & Editing Data

Shiny module for data output

Description

Shiny module for data output

Usage

dataOutputUI(id, icon = "download")

dataOutputServer(
  id,
  data = reactive(NULL),
  save_as = NULL,
  write_fun = "write.csv",
  write_args = NULL,
  hide = FALSE,
  hover_text = NULL
)

Arguments

id	unique identifier for the module to prevent namespace clashes when making multiple calls to this shiny module.
icon	supplied to dataOutputUI to control the appearance of the icon displayed on the download button, set to "download" by default.
data	an object of class data.frame wrapped in reactive to be saved to file.
save_as	name of the file to which the data should be saved, overrides input file path if supplied.
write_fun	name of the function to use when writing the data to file, set to "write.csv" by default.
write_args	a named list of additional arguments to pass to write_fun when reading in files.
hide	logical indicating whether the data input user interface should be hidden from the user, set to FALSE by default.
hover_text	text to display on download button when user hovers cursor over button, set to NULL by default to turn off hover text.

Author(s)

Dillon Hammill, [e-mail]

Examples

if (interactive()) {
  library(shiny)
  library(rhandsontable)
  library(shinyjs)

  ui <- fluidPage(
    useShinyjs(),
    dataInputUI("input1"),
    dataOutputUI("output1"),
    rHandsontableOutput("data1")
  )

  server <- function(input,
                     output,
                     session) {
    data_input1 <- dataInputServer("input1")

    output$data1 <- renderRHandsontable({
      if (!is.null(data_input1())) {
        rhandsontable(data_input1())
      }
    })

    dataOutputServer("output1",
      data = data_input1
    )
  }

  shinyApp(ui, server)
}

DataEditR documentation built on March 18, 2022, 6:36 p.m.