dataset in R shiny filtrabile

[Francesco CabidduAmministratore del forum]

Ciao a tutti,
sto cercando un modo per pubblicare online un dataset in modo che la persona possa consultarlo, filtrando per colonna (e.g. df %>% filter(variabile > n)) o ordinando i dati per colonna (e.g. df %>% arrange(variabile)). Vorrei anche fare in modo che dopo aver filtrato o ordinato il dataset, questo fosse scaricabile nella sua versione modificata.
Sapete se questo è realizzabile con Shiny? Se si, siccome non mi sono mai cimentato, avreste della documentazione per iniziare a capire come costruire tale applicazione? O un suggerimento di codice generale per iniziare.

Grazie mille!

[Francesco CabidduAmministratore del forum]

Ci son riuscito. Yuppi! 😀

library(shiny)
library(tidyverse)
library(DT)

df <- read_csv("df.csv")

# Define UI
ui <- fluidPage(
  # Application title
  titlePanel("Table example"),
  
  # Buttons
  downloadButton("downloadData", "Download Source data"),
  downloadButton("downloadFilteredData", "Download filtered data"),
  
  # Show table
  mainPanel(
    DT::dataTableOutput(outputId = "df")
    )
  )

# Define server logic required to show table
server <- function(input, output, session) {
   
  output$df <- 
    DT::renderDataTable(
      datatable(df,
                filter = "top",
                options = list(pageLength = 100, 
                               lengthMenu = c(10,20, 50, 100, 500, 1000, 5000, 10000, 
                                              nrow(df)),
                               paging = TRUE,
                               search = list(regex = TRUE)))
    )
  
  
  # Downloadable csv of selected dataset ----
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("Source_Data", ".csv", sep = "")
    },
    content = function(file) {
      write.csv(df, file, row.names = FALSE)
    }
  )
  
  output$filtered_row <- 
    renderPrint({
      input[["df_rows_all"]]
    })
  
  output$downloadFilteredData <- 
    downloadHandler(
      filename = "Filtered_Data.csv",
      content = function(file){
        write.csv(df[input[["df_rows_all"]], ],
                  file, row.names = FALSE)
      }
    )
}

# Run the application 
shinyApp(ui = ui, server = server)

[Davide MassiddaModeratore]

Troppo tardi per aiutarti ma… mi segno il post che potrebbe tornarmi utile!

[Autore]

Articoli