Merge branch 'developer' of RecklingK/Demo into master

Datei1.txt

@@ -1,47 +1,12 @@
-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

demoFZSTAM.R

@@ -1,16 +0,0 @@
-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

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