R help es - Oct 2018 - Error al pasar consulta a shiny

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]]

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

v.granda en 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 <
j.para.fernandez en hotmail.com> wrote:
> 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]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
	[[alternative HTML version deleted]]