Estoy tratando de aprender Shiny con R.
El desafío es:
Bajar un archivo con las columnas seleccionadas.
Subir ese archivo y usarlo para construir un subset de un dataframe con esas columnas.
En mi ejemplo, he logrado construir la opción de upload y de download.
El archivo de download está trabajando muy bien.
El botón de upload también.
Sin embargo, estoy haciendo trampa y construyendo el subset en forma manual con un vector que he creado (my_selection).
En definitiva, no sé cómo usar el archivo de subida, para asignarlo al vector my_selection.
Pueden por favor ayudarme?
Aquí está mi código.
library(shiny)
library(ggplot2) # for the diamonds dataset
library(DT)
ui <- fluidPage(
title = "Examples of DataTables",
sidebarLayout(
sidebarPanel(
conditionalPanel(
'input. Dataset === "diamonds"',
checkboxGroupInput("show_vars", "Columns in diamonds to show:",
names(diamonds), selected = names(diamonds))
),
conditionalPanel(
'input. Dataset === "diamonds_subset"'
)
),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("diamonds", DT::dataTableOutput("mytable1"),
p("Filtered Variables"),
verbatimTextOutput("filtered_variables"),
downloadButton(outputId = "download_my_variables", label = "Download My Variables")),
tabPanel("diamonds_subset", DT::dataTableOutput("mytable_subset"),
helpText("Please Upload a File to Create a Subset."),
fileInput("upload", NULL, buttonLabel = "Upload...", multiple = FALSE),
tableOutput("files"))
)
)
)
)
server <- function(input, output) {
# choose columns to display
output$mytable1 <- DT::renderDataTable({
DT::datatable(diamonds[, input$show_vars, drop = FALSE])
})
# choose columns to display
my_selection = c("carat", "cut", "color")
diamonds_subset = diamonds[, my_selection ]
output$mytable_subset <- DT::renderDataTable({
DT::datatable(diamonds_subset[, , drop = FALSE])
})
output$files <- renderTable(input$upload)
output$filtered_variables <-
renderPrint({
input$show_vars
})
output$download_my_variables <-
downloadHandler(
filename = "my_variables.csv",
content = function(file){
write. Table(input$show_vars, file, row.names=F, col.names=F, sep=",")
}
)
}
shinyApp(ui, server)