37 lines
1.4 KiB
R
37 lines
1.4 KiB
R
##
|
|
## Datum : 2026-05-13_09-37
|
|
## Name : Christian Oswald
|
|
## Datei : sync_hibiscus.R
|
|
## Projekt : gemfin-shiny
|
|
## Kommentar: Liest Daten aus der Hibiscus Datenbank
|
|
##
|
|
|
|
## * Initialisierung ----
|
|
|
|
sync_hibiscus <- function(){
|
|
if (as.character(Sys.info())[1] == "Linux") {
|
|
jdbc_url <- "jdbc:h2:/home/cosw/.jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
|
|
pw <- "LsOX6Ytldl4lJBcVoA6j+MDLzaA= LsOX6Ytldl4lJBcVoA6j+MDLzaA="
|
|
}
|
|
|
|
if(as.character(Sys.info())[1] == "Windows"){
|
|
source("c:/Users/chris/R/rfunc/fehler_add.R")
|
|
url <- "jdbc:h2:~/Insync/Projekte/Gemeindefinanzen/jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
|
|
h2jar <- "C:/Users/chris/bin/jameica/lib/h2/migration-h2/disabled/h2-1.4.199.jar"
|
|
}
|
|
# JDBC - Verbindung ----
|
|
if (as.character(Sys.info())[1] == "Darwin") {
|
|
source("/Users/cosw/R/rfunc/fehler_add.R")
|
|
h2jar <- "/Users/cosw/bin/jameica.app/lib/h2/migration-h2/disabled/h2-1.4.199.jar"
|
|
url <- "jdbc:h2:/Users/cosw/insync/Projekte/Gemeindefinanzen/jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
|
|
}
|
|
user <- "hibiscus"
|
|
pw <- "FbvGoL+yJlH1GtUojnC8ZajYuTA= FbvGoL+yJlH1GtUojnC8ZajYuTA="
|
|
drv <- JDBC("org.h2.Driver", h2jar, identifier.quote="`")
|
|
|
|
con_j <- dbConnect(drv, url, user, pw)
|
|
originaldaten <- dbReadTable(con_j, "UMSATZ")
|
|
dbDisconnect(con_j)
|
|
return(originaldaten)
|
|
}
|