Home - News ( United States | United Kingdom | Italy | Germany ) - Football scores

Showing content from https://winvector.github.io/rquery/reference/select_rows.html below:

Make a select rows node. — select_rows • rquery

Supports bquote() .()-style name abstraction including .(-) notation to promote strings to names (please see here: https://github.com/WinVector/rquery/blob/master/Examples/Substitution/Substitution.md).

select_rows(source, expr, env = parent.frame())

select_rows_nse(source, expr, env = parent.frame())

source to select from.

expression to select rows.

environment to look to.

select rows node.

if (requireNamespace("DBI"
, quietly 
= TRUE) && requireNamespace("RSQLite"
, quietly 
= TRUE)) {
  my_db <- DBI::dbConnect(RSQLite::SQLite()
, 
":memory:")
  d <- rq_copy_to(my_db
, 
'd'
, 
data.frame(
AUC 
= 0.6
, R2 
= 0.2
, z 
= 3))
  TARGETCOL = as.name("AUC")
  optree <- select_rows(d
, 
.(TARGETCOL) >= 0.5) %.>%
    select_columns(.
, 
"R2")
  cat(format(optree))
  sql <- to_sql(optree
, 
my_db)
  cat(sql)
  print(DBI::dbGetQuery(my_db
, 
sql))
  DBI::dbDisconnect(my_db)
}
#> mk_td("d", c(
#>   "AUC",
#>   "R2",
#>   "z")) %.>%
#>  select_rows(.,
#>    AUC >= 0.5) %.>%
#>  select_columns(., 
#>     c('R2'))
#> SELECT
#>  `R2`
#> FROM (
#>  SELECT * FROM (
#>   SELECT
#>    `AUC`,
#>    `R2`
#>   FROM
#>    `d`
#>  ) tsql_44980990891914475038_0000000000
#>  WHERE `AUC` >= 0.5
#> ) tsql_44980990891914475038_0000000001
#>    R2
#> 1 0.2

RetroSearch is an open source project built by @garambo | Open a GitHub Issue

Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo

HTML: 3.2 | Encoding: UTF-8 | Version: 0.7.4