#' Load data for NORIC
#'
#' Functions for loading data needed by NORIC from a database
#'
#' The functions \code{getAp}, \code{getSs}, \code{getAk} etc. load the
#' AP-, SS- and AK- tables etc. respectively. For most tables, the query adds
#' selected variables from \emph{ForlopsOversikt}.
#'
#' @param registryName Character string defining the registry name.
#' @param fromDate Character string of format YYYY-MM-DD with start date. Value
#' NULL if no filter on date.
#' @param toDate Character string of format YYYY-MM-DD with end date. Value
#' NULL if no filter on date.
#' @param singleRow Logical if only one row from the table is to be provided.
#' Default value is FALSE.
#' @param singleHospital if only data from one hospital, when national database.
#' Default value is NULL, contains reshID of selected hospital else.
#' @param ... Optional arguments to be passed to the function.
#'
#' @return Data frame or (when multiple data sets are returned) a list of data
#' frames containing registry data. In case of \code{getNameReshId()} data may
#' also be returned as a named list of values (see Details).
#' @name getData
#' @aliases getAp
#' getSo
#' getAk
#' getFo
#' getAnP
#' getCt
#' getAkOppf
#' getAnD
#' getSs
#' getMk
#' getPs
#' getApLight
#' getTaviProm
NULL
#' @rdname getData
#' @export
getAp <- function(registryName, fromDate, toDate, singleRow,
singleHospital = NULL, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from ANGIO PCI in time interval
# Add selected variables from ForlopsOversikt
# 3 variables to match on: AvdRESH, PasientID, ForlopsID
query <- paste0("
SELECT
a.*,
f.Kommune,
f.KommuneNr,
f.Fylke,
f.Fylkenr,
f.PasientAlder,
f.KobletForlopsID,
f.ForlopsType2
FROM
AngioPCIVar a
LEFT JOIN ForlopsOversikt f ON
a.AvdRESH = f.AvdRESH AND
a.PasientID = f.PasientID AND
a.ForlopsID = f.ForlopsID
WHERE
a.ProsedyreDato >= '", fromDate, "' AND
a.ProsedyreDato <= '", toDate, "'"
)
if(!is.null(singleHospital)) {
query <- paste0(query,
"AND a.AvdRESH = ",
singleHospital)
}
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for AngioPCI"
} else {
query <- paste0(query, ";")
msg <- "Query data for AngioPCI"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
aP <- rapbase::loadRegData(registryName, query)
list(aP = aP)
}
#' @rdname getData
#' @export
getSo <- function(registryName, fromDate, toDate, singleRow, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from SKJEMAOVERSIKT, in time interval
query <- paste0("
SELECT
*
FROM
SkjemaOversikt
WHERE
HovedDato >= '", fromDate, "' AND
HovedDato <= '", toDate, "'
")
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for SkjemaOversikt"
} else {
query <- paste0(query, ";")
msg <- "Query data for SkjemaOversikt"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
sO <- rapbase::loadRegData(registryName, query)
list(sO = sO)
}
#' @rdname getData
#' @export
getAk <- function(registryName, fromDate, toDate, singleRow,
singleHospital = NULL,
...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from AORTAKLAFFVAR in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
AortaklaffVar.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.FodselsDato,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID,
ForlopsOversikt.Avdod
FROM
AortaklaffVar
LEFT JOIN ForlopsOversikt ON
AortaklaffVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AortaklaffVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
ProsedyreDato >= '", fromDate, "' AND
ProsedyreDato <= '", toDate, "'"
)
if(!is.null(singleHospital)) {
query <- paste0(query,
"AND AortaklaffVar.AvdRESH = ",
singleHospital)
}
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for AortaklaffVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for AortaklaffVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
aK <- rapbase::loadRegData(registryName, query)
list(aK = aK)
}
#' @rdname getData
#' @export
getFo <- function(registryName, fromDate, toDate, singleRow, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from ForlopsOversikt, in time interval
query <- paste0("
SELECT
*
FROM
ForlopsOversikt
WHERE
HovedDato >= '", fromDate, "' AND
HovedDato <= '", toDate, "'
")
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for ForlopsOversikt"
} else {
query <- paste0(query, ";")
msg <- "Query data for ForlopsOversikt"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
fO <- rapbase::loadRegData(registryName, query)
list(fO = fO)
}
#' @rdname getData
#' @export
getAnP <- function(registryName, fromDate, toDate, singleRow,
singleHospital = NULL, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from AndreProsedyrerVar in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
AndreProsedyrerVar.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.PasientID,
ForlopsOversikt.FodselsDato,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID
FROM
AndreProsedyrerVar
LEFT JOIN ForlopsOversikt ON
AndreProsedyrerVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AndreProsedyrerVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
AndreProsedyrerVar.ProsedyreDato >= '", fromDate, "' AND
AndreProsedyrerVar.ProsedyreDato <= '", toDate, "'"
)
if(!is.null(singleHospital)) {
query <- paste0(query,
"AND AndreProsedyrerVar.AvdRESH = ",
singleHospital)
}
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for AndreProsedyrerVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for AndreProsedyrerVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
anP <- rapbase::loadRegData(registryName, query)
list(anP = anP)
}
#' @rdname getData
#' @export
getCt <- function(registryName, fromDate, toDate, singleRow, ...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from CT in time interval
# Add selected variables from ForlopsOversikt
# 3 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
CTAngioVar.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID
FROM
CTAngioVar
LEFT JOIN ForlopsOversikt ON
CTAngioVar.AvdRESH = ForlopsOversikt.AvdRESH AND
CTAngioVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
CTAngioVar.UndersokDato >= '", fromDate, "' AND
CTAngioVar.UndersokDato <= '", toDate, "'"
)
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for CTAngioVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for CTAngioVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
cT <- rapbase::loadRegData(registryName, query)
list(cT = cT)
}
#' @rdname getData
#' @export
getAkOppf <- function(registryName, fromDate, toDate, singleRow, ...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from AortaklaffOppfVar in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
AortaklaffOppfVar.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.PasientID,
ForlopsOversikt.FodselsDato,
ForlopsOversikt.BasisRegStatus,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID,
ForlopsOversikt.Avdod,
ForlopsOversikt.AvdodDato,
ForlopsOversikt.ErOppflg ,
ForlopsOversikt.OppflgStatus,
ForlopsOversikt.OppflgSekNr,
ForlopsOversikt.OppflgRegStatus
FROM
AortaklaffOppfVar
LEFT JOIN ForlopsOversikt ON
AortaklaffOppfVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AortaklaffOppfVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
AortaklaffOppfVar.BasisProsedyreDato >= '", fromDate, "' AND
AortaklaffOppfVar.BasisProsedyreDato <= '", toDate, "'"
)
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for AortaklaffOppfVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for AortaklaffOppfVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
aKoppf <- rapbase::loadRegData(registryName, query)
list(aKoppf = aKoppf)
}
#' @rdname getData
#' @export
getAnD <- function(registryName, fromDate, toDate, singleRow,
singleHospital = NULL, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from AnnenDiagnostikkVar in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
AnnenDiagnostikkVar.*,
ForlopsOversikt.PasientID,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID
FROM
AnnenDiagnostikkVar
LEFT JOIN ForlopsOversikt ON
AnnenDiagnostikkVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AnnenDiagnostikkVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
AnnenDiagnostikkVar.ProsedyreDato >= '", fromDate, "' AND
AnnenDiagnostikkVar.ProsedyreDato <= '", toDate, "'"
)
if(!is.null(singleHospital)) {
query <- paste0(query,
"AND AnnenDiagnostikkVar.AvdRESH = ",
singleHospital)
}
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for AnnenDiagnostikkVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for AnnenDiagnostikkVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
anD <- rapbase::loadRegData(registryName, query)
list(anD = anD)
}
#' @rdname getData
#' @export
getSs <- function(registryName, fromDate, toDate, singleRow,
singleHospital = NULL, ...) {
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from Segment STent in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
SegmentStent.*,
ForlopsOversikt.PasientID,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID
FROM
SegmentStent
LEFT JOIN ForlopsOversikt ON
SegmentStent.AvdRESH = ForlopsOversikt.AvdRESH AND
SegmentStent.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
SegmentStent.ProsedyreDato >= '", fromDate, "' AND
SegmentStent.ProsedyreDato <= '", toDate, "'"
)
if(!is.null(singleHospital)) {
query <- paste0(query,
"AND SegmentStent.AvdRESH = ",
singleHospital)
}
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for SegmentStent"
} else {
query <- paste0(query, ";")
msg <- "Query data for SegmentStent"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
sS <- rapbase::loadRegData(registryName, query)
list(sS = sS)
}
#' @rdname getData
#' @export
getMk <- function(registryName, fromDate, toDate, singleRow, ...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from mitralklaff in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
MitralklaffVar.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.PasientID,
ForlopsOversikt.FodselsDato,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.ForlopsType1,
ForlopsOversikt.ForlopsType2,
ForlopsOversikt.KobletForlopsID,
ForlopsOversikt.BasisRegStatus,
ForlopsOversikt.Avdod,
ForlopsOversikt.AvdodDato
FROM
MitralklaffVar
LEFT JOIN ForlopsOversikt ON
MitralklaffVar.AvdRESH = ForlopsOversikt.AvdRESH AND
MitralklaffVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
MitralklaffVar.ProsedyreDato >= '", fromDate, "' AND
MitralklaffVar.ProsedyreDato <= '", toDate, "'"
)
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for MitralklaffVar"
} else {
query <- paste0(query, ";")
msg <- "Query data for MitralklaffVar"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
mK <- rapbase::loadRegData(registryName, query)
list(mK = mK)
}
#' @rdname getData
#' @export
getPs <- function(registryName, fromDate, toDate, singleRow, ...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# Ask for all variables from PAsientstudier in time interval
# Add selected variables from ForlopsOversikt
# 2 variables to match on: AvdRESH, ForlopsID
query <- paste0("
SELECT
PasienterStudier.*,
ForlopsOversikt.Sykehusnavn,
ForlopsOversikt.FodselsDato,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder
FROM
PasienterStudier
LEFT JOIN ForlopsOversikt ON
PasienterStudier.AvdRESH = ForlopsOversikt.AvdRESH AND
PasienterStudier.PasientID = ForlopsOversikt.PasientID
WHERE
PasienterStudier.PasInklDato >= '", fromDate, "' AND
PasienterStudier.PasInklDato <= '", toDate, "'"
)
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
msg <- "Query single row data for PasienterStudier"
} else {
query <- paste0(query, ";")
msg <- "Query data for PasienterStudier"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
pS <- rapbase::loadRegData(registryName, query)
list(pS = pS)
}
#' @rdname getData
#' @export
getApLight <- function(registryName, fromDate, toDate, singleRow, ...) {
# SQL possible for defined time-interval
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
# QUERY ANGIO PCI + FO
# Ask for all variables from ANGIO PCI in time interval
# Add selected variables from ForlopsOversikt
# 3 variables to match on: AvdRESH, PasientID, ForlopsID
query <- paste0("
SELECT
AngioPCIVar.*,
ForlopsOversikt.Kommune,
ForlopsOversikt.KommuneNr,
ForlopsOversikt.Fylke,
ForlopsOversikt.Fylkenr,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.KobletForlopsID
FROM
AngioPCIVar
LEFT JOIN ForlopsOversikt ON
AngioPCIVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AngioPCIVar.PasientID = ForlopsOversikt.PasientID AND
AngioPCIVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
AngioPCIVar.ProsedyreDato >= '", fromDate, "' AND
AngioPCIVar.ProsedyreDato <= '", toDate, "'"
)
# Only ask for variables needed in functions:utlede_segment_stent_variabler.R
querySs <- paste0("
SELECT
ForlopsID, AvdRESH, StentType, Segment, Graft, ProsedyreType
FROM
SegmentStent
WHERE
ProsedyreDato >= '", fromDate, "' AND
ProsedyreDato <= '", toDate, "'
")
# Only ask for variables needed in functions: utlede_annen_diag_variabler.R
queryAd <- paste0("
SELECT
ForlopsID, AvdRESH, metode
FROM
AnnenDiagnostikkVar
WHERE
ProsedyreDato >= '", fromDate, "' AND
ProsedyreDato <= '", toDate, "'
")
# SQL for one row only/complete table:
if (singleRow) {
query <- paste0(query, "\nLIMIT\n 1;")
querySs <- paste0(querySs, "\nLIMIT\n 1;")
queryAd <- paste0(queryAd, "\nLIMIT\n 1;")
msg <- "Query single row data for AngioPCI light"
} else {
query <- paste0(query, ";")
querySs <- paste0(querySs, ";")
queryAd <- paste0(queryAd, ";")
msg <- "Query data for AngioPCI light"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
aP <- rapbase::loadRegData(registryName, query)
aD <- rapbase::loadRegData(registryName, queryAd)
sS <- rapbase::loadRegData(registryName, querySs)
list(aP = aP,
aD = aD,
sS = sS)
}
#' @rdname getData
#' @export
getTaviProm <- function(registryName, fromDate, toDate, singleRow, ...){
# SQL possible for defined time-interval:
if (is.null(fromDate)) {
fromDate <- as.Date("1900-01-01")
}
if (is.null(toDate)) {
toDate <- noric::getLatestEntry(registryName)
}
queryAk <- paste0("
SELECT
AortaklaffVar.Dodsdato,
AortaklaffVar.UtskrevetTil,
AortaklaffVar.TypeKlaffeprotese,
AortaklaffVar.Prosedyre,
AortaklaffVar.ScreeningBeslutning,
AortaklaffVar.ProsedyreDato,
AortaklaffVar.FnrType,
ForlopsOversikt.PasientID,
ForlopsOversikt.PasientKjonn,
ForlopsOversikt.PasientAlder,
ForlopsOversikt.Avdod,
ForlopsOversikt.AvdRESH,
ForlopsOversikt.ForlopsID
FROM
AortaklaffVar
LEFT JOIN ForlopsOversikt ON
AortaklaffVar.AvdRESH = ForlopsOversikt.AvdRESH AND
AortaklaffVar.ForlopsID = ForlopsOversikt.ForlopsID
WHERE
ProsedyreDato >= '", fromDate, "' AND
ProsedyreDato <= '", toDate, "'"
)
# Ask for all variables from PROM
queryProm <- paste0("
SELECT
*
FROM
TaviProm
WHERE
ProsedyreDato >= '", fromDate, "' AND
ProsedyreDato <= '", toDate, "'
")
# SQL for one row only/complete table:
if (singleRow) {
queryProm <- paste0(queryProm, "\nLIMIT\n 1;")
queryAk <- paste0(queryAk, "\nLIMIT\n 1;")
msg <- "Query single row data for TaviProm"
} else {
queryProm <- paste0(queryProm, ";")
queryAk <- paste0(queryAk, ";")
msg <- "Query data for TaviProm"
}
if ("session" %in% names(list(...))) {
rapbase::repLogger(session = list(...)[["session"]], msg = msg)
}
taviProm <- rapbase::loadRegData(registryName, queryProm)
aK <- rapbase::loadRegData(registryName, queryAk)
list(taviProm = taviProm,
aK = aK)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.