R/lookup.r

In giupo/GrafoDB: simple ETL for timeseries in R

#' Ricerca nei metadati del grafo
#'
#' @name lookup_impl
#' @param x istanza di grafo
#' @param key chiave del metadato
#' @param value valore del metadato
#' @return lista di nomi che matchano la condizione `key==valy`
#' @include db.r

lookup_impl <- function(x, key, value) {
  tag <- x@tag
  con <- build_connection()
  on.exit(disconnect(con))
  ## non ci sono prepared statement funzionanti. maledetti.

  df <- DBI::dbGetQuery(con, sql_by_key(
    "LOOKUP_METADATI",
    tag = tag,
    key = key,
    value = value,
    .con = con))

  as.character(df$name)
}

#' Ricerca nelle formule del grafo
#'
#' @name lookup_formula_impl
#' @param x istanza di grafo
#' @param key Stringa da cercare
#' @return lista di nomi che hanno `key` nella formula
#' @include db.r

lookup_formula_impl <- function(x, key) {
  tag <- x@tag
  con <- build_connection()
  on.exit(disconnect(con))
  ## non ci sono prepared statement funzionanti. maledetti.
  df <- DBI::dbGetQuery(con, sql_by_key(
    "LOOKUP_FORMULA",
    tag = tag,
    key = as.character(key),
    .con = con))

  as.character(df$name)
}

#' Ricerca nelle formule del grafo
#'
#' @name lookup_dati_impl
#' @param x istanza di grafo
#' @param key numero da cercare
#' @return lista di nomi che matchano `key` nella formula
#' @include db.r

lookup_dati_impl <- function(x, key) {
  tag <- x@tag
  con <- build_connection()
  on.exit(disconnect(con))
  ## non ci sono prepared statement funzionanti. maledetti.
  df <- DBI::dbGetQuery(con, sql_by_key(
    "LOOKUP_DATI",
    tag = tag,
    key = as.character(key),
    .con = con))

  as.character(df$name)
}