Merge branch 'developer' of https://gitea.hokage.de/RecklingK/Demo into developer

demo function ggplot lines

.gitignore

@@ -36,3 +36,4 @@ vignettes/*.pdf
 # Shiny token, see https://shiny.rstudio.com/articles/shinyapps.html
 rsconnect/
 
+.Rproj.user

Datei1.txt

@@ -0,0 +1,47 @@
+library(ggplot2); library(grid)
+Hello!
+
+b <- function() {
+  #this function is a demo function
+  ggplot() +
+    ggpoint() +
+    scale_discrete() +
+    theme()
+}
+
+def neue_funktion():
+	print("kreativ")
+	print("sven")
+
+c <- function() {
+  #this function is a demo function
+  ggplot() +
+    gglines() +
+    scale_discrete() +
+    theme()
+}
+
+print("welt")
+
+g <- if(b == a) {
+  print("bla bla")
+} else {
+  print("nee")
+}
+
+print("issues")
+
+a <- function() {
+  #this function is a demo function
+  ggplot() +
+    ggbar() +
+    scale_discrete() +
+    theme()
+}
+
+plot(letters[1:5], seq(1:5))
+lines(1:5, rep(1,5), col="red")
+lines(rep(2,5), 1:5, col="green")
+grid()
+
+#finale oh oh

Demo.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: XeLaTeX

demoFZSTAM.R

@@ -0,0 +1,16 @@
+library(ggplot2); library(RODBC)
+
+channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13")
+test <- sqlQuery(channel, stringsAsFactors=F,
+                 "SELECT FZSTAM.FIRNR, FZSTAM.FAZID, FZSTAM.FAZFI, FZSTAM.BAUJJ
+                 FROM FZSTAM
+                 WHERE FZSTAM.FIRNR = 1
+                 LIMIT 1000
+                 ")
+odbcCloseAll(); rm(channel)
+
+ggplot(test, aes(x=FAZID)) +
+  geom_line(aes(y=FAZFI)) +
+  geom_line(aes(y=BAUJJ), col="red") +
+  scale_fill_hue(c = 40) +
+  theme_bw()

test.py

@@ -0,0 +1,10 @@
+def testfunktion(*args, **kwargs):
+	print(*args, end="")
+
+
+testfunktion(
+	"mein",
+	"test",
+	"noch",
+	"mehr",
+)