No logro que funcione

[adriancbondia]

mirgff3_shiny/server.R

Lines 71 to 80 in 4c50f00

	output$pca<- renderPlot({
	#Blanco y negro
	degPCA(assays(dataInput())[[1]], metadata = colData(se), data = FALSE)
	#observeEvent(input$upload2, {
	# degPCA(assays(se)[[1]], metadata = colData(se), condition = input$datadrop, shape = input$datadrop, data = FALSE)
	#})
	#Diferenciado por color y forma
	#metadata = colData(se)
	#degPCA(assays(se)[[1]], metadata = colData(se), condition = input$datadrop, shape = input$datadrop, data = FALSE)
	})

Conseguí que funcionara si dejo la variable metadata cargada en memoria por otros medios. También hace la gráfica con diferenciación de colores y demás pero no logro encotrar donde tiene que ir el "selectInput" para que se cargue el datadrop.

[lpantano]

Hey, mira el ultimo cambio que he hecho. Esto deberia hacer funcionar el droplist y tambien el Selector.

Queda normalizar los datos por default. Dime si consigues que el ultimo codigo te funcione.

[adriancbondia]

Funciona perfecto, gracias!