Discussion:
[R-es] Error al pasar consulta a shiny
Jesús Para Fernández
2018-10-22 09:54:21 UTC
Permalink
Buenas

Estoy haciendo una app en shiny, ,algo muy sencillo, pero no consigo pasar una variable de un inputSelect a una consulta SQL y que de el resultado

En el selectInput lo pongo de la siguiente manear (dentro del ui):

selectInput("nombre","Selecciona el nombre de la variable",choices=names(variable))
textOutput("resultado")
y en el server pongo

output$resultado <- renderText({
conexion <- dbConnect(....)
consulta <- dbGetQuery(conexion,paste0("SELECT * FROM tabla WHERE nombre = '",input$nombre,"';")
consulta
})

Me devuelve el siguiente error:

argument 1 (type 'list') cannot be handled by 'cat'

En cambio con un renderTable si que tira. Alguna idea?

Gracias
Jesús


[[alternative HTML version deleted]]
Víctor Granda García
2018-10-22 10:24:56 UTC
Permalink
Hola Jesús,

En vez de renderText, prueba renderPrint. El problema creo que se debe a
que renderText pasa un data.frame (una lista al fin y al cabo) a "cat" y
eso da error (pej cat(iris) te da exactamente el mismo error)

*Víctor Granda García*
Data Technician

***@creaf.uab.cat
Tel. +34 93 581 33 53

*www.creaf.cat* <http://www.creaf.cat/>* | **http://blog.creaf.cat*
<http://blog.creaf.cat/>
CREAF. Campus UAB. Edifici C. 08193 Bellaterra (Barcelona)

Antes de imprimir este mensaje electrónico piense en el medio ambiente.



On Mon, 22 Oct 2018 at 11:54, Jesús Para Fernández <
Post by Jesús Para Fernández
Buenas
Estoy haciendo una app en shiny, ,algo muy sencillo, pero no consigo pasar
una variable de un inputSelect a una consulta SQL y que de el resultado
selectInput("nombre","Selecciona el nombre de la
variable",choices=names(variable))
textOutput("resultado")
y en el server pongo
output$resultado <- renderText({
conexion <- dbConnect(....)
consulta <- dbGetQuery(conexion,paste0("SELECT * FROM tabla WHERE nombre =
'",input$nombre,"';")
consulta
})
argument 1 (type 'list') cannot be handled by 'cat'
En cambio con un renderTable si que tira. Alguna idea?
Gracias
Jesús
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
[[alternative HTML version deleted]]

Loading...