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: PY-SHINY

image_composite (Magick) devuelve un error en Shiny Flexdashboard.

25 Jul, 2023 Programación

Necesito construir una imagen compuesta en un Shiny Flexdashboard para colocar un gráfico Ggplot2 sobre una imagen de fondo. Utilizo el siguiente código: “`{r} renderImage({ bkgDom <- image_read('background.png') myChart <- ggplot(data=individualObs, aes(individualObs$SA)) + geom_histogram() fig <- image_graph(width = 600, height = 550) myChart dev.off() image_composite(bkgDom, fig, offset = "+1030+50", operator . . . Read more

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