beispieldateien hinzu

R/umsatz/sync_hibiscus.R

@@ -0,0 +1,36 @@
+##
+## 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)
+}