Hola,
Quería preguntar si alguien sabe cómo se puede utilizar el resultado de
modificar una tabla con el argumento editable = TRUE de datatable, para
actualizar una segunda tabla. Adjunto un código de ejemplo y lo copio también
aquí abajo.
Lo que yo querría por ejemplo es poner en la columna 'replacements' de
la tab1 los valores 1 y 2 (clicando en las celdas de esa columna y escribiendo a
mano ese valor, gracias a editable = TRUE) y que en la tab2 aparecieran esos
valores cambiados.
He encontrado este enlace con la misma idea
https://stackoverflow.com/questions/31744300/using-the-values-of-rendered-datatable-in-later-analysis
pero no sé llevar a cabo los procedimientos que se comentan en la respuesta.
Gracias de antemano.
Saludos,
Guillermo
----
library(shiny)
library(DT)
library(dplyr)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
h4("App para sustituir valores. A partir de sustituir valores en la
tabla de arriba, el
objetivo es actualizar la tabla de abajo."),
),
mainPanel(
dataTableOutput("tab1"),
br(),
dataTableOutput("tab2")
)
)
)
server <- function(input, output) {
output$tab1 <- renderDataTable({
df1 <- data.frame(values_to_replace = c("A+", "B-"))
%>%
mutate(replacements = NA)
datatable(df1, rownames = FALSE, editable = TRUE)
})
output$tab2 <- renderDataTable({
df1 <- data.frame(observations = c("A+", "B-", 1, 5,
"B-", 7, "A+", "B-"))
vals_orig <- c("A+", "B-")
#vals_repl <- df1$replacements # ESTO ES LO QUE DEBE VENIR DE tab.
vals_repl <- c(10, 20)
df2 <- df1 %>%
mutate(observations_repl = plyr::mapvalues(observations, from = vals_orig,
to = vals_repl))
datatable(df2, rownames = FALSE)
})
}
shinyApp(ui, server)
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: app_example_data_replacement.R
Type: application/octet-stream
Size: 1027 bytes
Desc:
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20230208/ab62cf0b/attachment.obj>