es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Tag: 3DTOUCH

R Shiny: Cómo abrir una ventana emergente y mostrar un gráfico que depende del evento de clic en una fila de la tabla DT En R Shiny, es posible abrir una ventana emergente y mostrar un gráfico que depende del evento de clic en una fila de la tabla DT. Aquí te mostraremos cómo hacerlo: 1. En primer lugar, asegúrate de tener instalada la biblioteca ‘shiny’ en tu entorno R. 2. Crea la interfaz de usuario (UI) de Shiny en tu archivo R. Puedes hacerlo usando la función `shinyUI` y definiendo la estructura de tu aplicación. 3. Dentro de la función `shinyUI`, agrega una función `dataTableOutput` para mostrar la tabla DT en tu interfaz de usuario. Por ejemplo: “`R shinyUI( fluidPage( dataTableOutput(“myTable”) ) ) “` 4. Luego, en tu archivo R, crea la función de servidor (server) de Shiny usando la función `shinyServer`. Aquí es donde manejarás el evento de clic en una fila y mostrarás la ventana emergente con el gráfico correspondiente. 5. Dentro de la función `shinyServer`, define una estructura lógica para el evento de clic en una fila de la tabla DT. Por ejemplo: “`R shinyServer(function(input, output, session) { output$myTable <- renderDataTable({ DT::datatable(my_data, rownames = FALSE, options = list( rowCallback = JS( "function(row, data) {", "$(row).on('click', function() {", "var rowData = table.row(row).data();", "showGraph(rowData);", // Llama a la función showGraph con los datos de la fila "});", "}") )) }) }) ``` 6. Dentro de la función `showGraph`, podrás definir cómo se abrirá una ventana emergente y qué gráfico se mostrará. Aquí tienes un ejemplo básico utilizando la biblioteca 'plotly' para crear un gráfico de dispersión: ```R showGraph <- function(rowData) { popupContent <- fluidPage( tags$div(plotlyOutput("myPlot")) ) modalDialog(popupContent) output$myPlot <- renderPlotly({ plot_ly(data = rowData, x = ~x_variable, y = ~y_variable, mode = 'markers') }) showModal(modalDialog()) } ``` Con estas instrucciones, podrás abrir una ventana emergente y mostrar un gráfico que dependerá del evento de clic en una fila de la tabla DT en tu aplicación R Shiny. ¡Espero que esto te sea de ayuda!

24 Jul, 2023 Programación

Estoy tratando de crear una ventana emergente en función de un evento de clic en Shiny. La ventana debería abrirse cuando el usuario hace clic en una fila en una tabla DT. Debería contener un gráfico de plotly, filtrado por el elemento de fila en la columna “v1” en “df” . . . Read more

Mapeo manual con herencia.

23 Jul, 2023 Programación

Supongamos que tengo dos clases A y ADto. A hereda de ABase y ADto hereda de ADtoBase. Tengo dos métodos de extensión para mapear manualmente ABase a ADtoBase y viceversa. Cuando quiero escribir un método de extensión para mapear A a ADto, ¿hay alguna forma de reutilizar la conversión base . . . Read more

¿Cómo replicar la misma expresión con el operador de tubería tidyverse en R?

22 Jul, 2023 Programación

Me gustaría resaltar los valores correspondientes en cada columna de los datos utilizando DT::datatable. Por ejemplo: library(tidyverse) data(mtcars) mtcars <- mtcars %>% mutate(across(everything(), as.character)) datatable(mtcars[, c(“vs”, “am”)]) %>% formatStyle(“vs”, backgroundColor = styleEqual(rep(0, sum(mtcars$vs == 0)), rep(“yellow”, sum(mtcars$vs == 0)))) %>% formatStyle(“am”, backgroundColor = styleEqual(rep(1, sum(mtcars$am == 1)), rep(“yellow”, sum(mtcars$am == . . . Read more