Rowdata y gráficos

[adriancbondia]

mirgff3_shiny/server.R

Lines 125 to 132 in 4c50f00

	output$graph <- renderPlot({
	#Creamos la variable que almacenará las filas seleccionadas.
	filas5 <-input$tabla4_rows_selected
	#Creamos metadata a partir de la variable se
	metadata = colData(se)
	#Desarrollamos los gráficos de las filas seleccionadas.
	degPlot(se,genes = rownames(se)[filas5], xs = colnames(metadata),log2 = FALSE)
	})

No se si había que hacer rowData una tabla interactiva. Funciona mostrando las gráfica pero no se si es posible que no muestre error en la ventana de gráficos antes de seleccionar las lineas.