Formatting data extracts

Returns a human-readable string representation of an extracted data_extract_spec object.

Usage

format_data_extract(data_extract)

Arguments

data_extract

list the list output of data_extract_srv

Value

character(1) the string representation

Details

This function formats the output of data_extract_srv. See the example for more information.

Examples

simple_des <- data_extract_spec(
  dataname = "iris",
  filter = filter_spec(vars = "Petal.Length", choices = c("1.4", "1.5")),
  select = select_spec(choices = c("Petal.Length", "Species"))
)

sample_filtered_data <- {
  # create TealData
  data <- teal.data::teal_data(teal.data::dataset("iris", iris))

  # covert TealData to FilteredData
  datasets <- teal.slice:::filtered_data_new(data)
  teal.slice:::filtered_data_set(data, datasets)
  datasets
}

if (interactive()) {
  shiny::shinyApp(
    ui = shiny::fluidPage(
      data_extract_ui(
        id = "extract",
        label = "data extract ui",
        data_extract_spec = simple_des,
        is_single_dataset = TRUE
      ),
      shiny::verbatimTextOutput("formatted_extract")
    ),
    server = function(input, output, session) {
      extracted_input <- data_extract_srv(
        id = "extract",
        datasets = sample_filtered_data,
        data_extract_spec = simple_des
      )
      output$formatted_extract <- shiny::renderPrint({
        cat(format_data_extract(extracted_input()))
      })
    }
  )
}