R help es - Jul 2015 - Error sql en función

Hola:

No consigo que la función sqldf () funcione dentro de una función. Alguien puede
echarme una mano. En resumen, el problema es que cuando lo ejecuto fuera de una
función no tengo ningún problema:

=========================> #
install.packages("sqldf")
> library(MASS)
> library (sqldf)
> data(Aids2, package="MASS")
> options(digits=3)
> table (Aids2$state)
  NSW Other   QLD   VIC 
 1780   249   226   588 
> max (Aids2$age)
[1] 82
> # Sin función:
> DADES_SEL = sqldf ("select * from Aids2 where state in ('NSW',
'QLD') and age < 40")
> table (DADES_SEL$state)
  NSW Other   QLD   VIC 
 1102     0   128     0 
> max (DADES_SEL$age)
[1] 39
=========================
Pero dentro de una función no se como pasarle los argumentos para que funcione:

=========================> SQL_PROVA = function (XDADES, XWHE)
+   {
+   XDADES_SQL = sqldf (paste ("select * from", XDADES, XWHE, sep =
" "))
+   return(XDADES_SQL)
+   }
> DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age <
'40'")
Error in sqliteSendQuery(con, statement, bind.data) : 
  error in statement: near "fromc": syntax error
=========================
Alguien puede ayudarme y decir que estoy haciendo mal? El problema debe estar en
el "paste" ya que si coloco la orden original funciona:

=========================> SQL_PROVA = function (XDADES, XWHE)
+   {
+   XDADES_SQL2 = sqldf ("select * from Aids2 where state in
('NSW', 'QLD') and age < 40")
+   return(XDADES_SQL2)
+   }
> DADES_SEL2 = SQL_PROVA (XDADES = birthwt, XWHE = "where age <
'40'")
> table (DADES_SEL2$state)
  NSW Other   QLD   VIC 
 1102     0   128     0 
> max (DADES_SEL2$age)
[1] 39
========================= 
Muchas gracias y saludos.

Hola,

Mira la página de "sqldf" en GitHub, viene un ejemplo, entre otras
muchas
cosas, que lo explica:

https://github.com/ggrothendieck/sqldf#Example_5._Insert_Variables

#------------------------------
# 5
minSL <- 7
limit <- 3
fn$sqldf('select * from iris where "Sepal.Length" > $minSL
limit $limit')
#------------------------------

Saludos,
Carlos Ortega
www.qualityexcellence.es


2015-07-27 12:00 GMT+02:00 Griera <griera en yandex.com>:
> Hola:
>
> No consigo que la función sqldf () funcione dentro de una función. Alguien
> puede echarme una mano. En resumen, el problema es que cuando lo ejecuto
> fuera de una función no tengo ningún problema:
>
> =========================> > # install.packages("sqldf")
> > library(MASS)
> > library (sqldf)
> > data(Aids2, package="MASS")
> > options(digits=3)
>
> > table (Aids2$state)
>   NSW Other   QLD   VIC
>  1780   249   226   588
>
> > max (Aids2$age)
> [1] 82
>
> > # Sin función:
> > DADES_SEL = sqldf ("select * from Aids2 where state in
('NSW', 'QLD')
> and age < 40")
>
> > table (DADES_SEL$state)
>   NSW Other   QLD   VIC
>  1102     0   128     0
>
> > max (DADES_SEL$age)
> [1] 39
> =========================>
> Pero dentro de una función no se como pasarle los argumentos para que
> funcione:
>
> =========================> > SQL_PROVA = function (XDADES, XWHE)
> +   {
> +   XDADES_SQL = sqldf (paste ("select * from", XDADES, XWHE, sep
= " "))
> +   return(XDADES_SQL)
> +   }
> > DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age <
'40'")
> Error in sqliteSendQuery(con, statement, bind.data) :
>   error in statement: near "fromc": syntax error
> =========================>
> Alguien puede ayudarme y decir que estoy haciendo mal? El problema debe
> estar en el "paste" ya que si coloco la orden original funciona:
>
> =========================> > SQL_PROVA = function (XDADES, XWHE)
> +   {
> +   XDADES_SQL2 = sqldf ("select * from Aids2 where state in
('NSW',
> 'QLD') and age < 40")
> +   return(XDADES_SQL2)
> +   }
>
> > DADES_SEL2 = SQL_PROVA (XDADES = birthwt, XWHE = "where age <
'40'")
>
> > table (DADES_SEL2$state)
>   NSW Other   QLD   VIC
>  1102     0   128     0
>
> > max (DADES_SEL2$age)
> [1] 39
> =========================>
> Muchas gracias y saludos.
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

Hola Carlos:

Gracias por responder!

Ayer caí en esta página al buscar el problema con google, pero no conseguir
entender y implementar lo que sugiere. Sin entender nada, lo que hice fue:

=======================> library(MASS)
> library (sqldf)  # Per SQL
> data(Aids2, package="MASS")
> SQL_PROVA = function (XDADES, XWHE)
+   {
+   XDADES_SQL = sqldf ("select * from $XDADES $XWHE")
+   return(XDADES_SQL)
+   }
> DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age <
'40'")
Error in sqliteSendQuery(con, statement, bind.data) : 
  error in statement: near "$XDADES": syntax error
=======================
Evidentemente da error.

Tampoco funcionaba si introducía \"age\" en el agumento del where:

=======================> DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE =
"where \"age\" < '40'")
Error in sqliteSendQuery(con, statement, bind.data) : 
  error in statement: near "$XDADES": syntax error
=======================
He buscado ejemplos con google. pero no he encontrado nada.

Gracias y saludos.


On Mon, 27 Jul 2015 12:45:50 +0200
Carlos Ortega <cof en qualityexcellence.es> wrote:
> Hola,
> 
> Mira la página de "sqldf" en GitHub, viene un ejemplo, entre
otras muchas
> cosas, que lo explica:
> 
> https://github.com/ggrothendieck/sqldf#Example_5._Insert_Variables
> 
> #------------------------------
> # 5
> minSL <- 7
> limit <- 3
> fn$sqldf('select * from iris where "Sepal.Length" > $minSL
limit $limit')
> #------------------------------
> 
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
> 
> 
> 2015-07-27 12:00 GMT+02:00 Griera <griera en yandex.com>:
> 
> > Hola:
> >
> > No consigo que la función sqldf () funcione dentro de una función.
Alguien
> > puede echarme una mano. En resumen, el problema es que cuando lo
ejecuto
> > fuera de una función no tengo ningún problema:
> >
> > =========================> > > #
install.packages("sqldf")
> > > library(MASS)
> > > library (sqldf)
> > > data(Aids2, package="MASS")
> > > options(digits=3)
> >
> > > table (Aids2$state)
> >   NSW Other   QLD   VIC
> >  1780   249   226   588
> >
> > > max (Aids2$age)
> > [1] 82
> >
> > > # Sin función:
> > > DADES_SEL = sqldf ("select * from Aids2 where state in
('NSW', 'QLD')
> > and age < 40")
> >
> > > table (DADES_SEL$state)
> >   NSW Other   QLD   VIC
> >  1102     0   128     0
> >
> > > max (DADES_SEL$age)
> > [1] 39
> > =========================> >
> > Pero dentro de una función no se como pasarle los argumentos para que
> > funcione:
> >
> > =========================> > > SQL_PROVA = function (XDADES,
XWHE)
> > +   {
> > +   XDADES_SQL = sqldf (paste ("select * from", XDADES,
XWHE, sep = " "))
> > +   return(XDADES_SQL)
> > +   }
> > > DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age
< '40'")
> > Error in sqliteSendQuery(con, statement, bind.data) :
> >   error in statement: near "fromc": syntax error
> > =========================> >
> > Alguien puede ayudarme y decir que estoy haciendo mal? El problema
debe
> > estar en el "paste" ya que si coloco la orden original
funciona:
> >
> > =========================> > > SQL_PROVA = function (XDADES,
XWHE)
> > +   {
> > +   XDADES_SQL2 = sqldf ("select * from Aids2 where state in
('NSW',
> > 'QLD') and age < 40")
> > +   return(XDADES_SQL2)
> > +   }
> >
> > > DADES_SEL2 = SQL_PROVA (XDADES = birthwt, XWHE = "where age
< '40'")
> >
> > > table (DADES_SEL2$state)
> >   NSW Other   QLD   VIC
> >  1102     0   128     0
> >
> > > max (DADES_SEL2$age)
> > [1] 39
> > =========================> >
> > Muchas gracias y saludos.
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es en r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
> >
> 
> 
> 
> -- 
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es