Joe Slam produnis

## de_ice.fish
set -l data_status (curl -s https://iceportal.de/api1/rs/status)
set -l data_trip (curl -s https://iceportal.de/api1/rs/tripInfo/trip)
# next stop
echo  (echo $data_trip | jq -r '([ .trip.stops[] | select(.info.passed==false) ]
| first).station.name')
# train number
echo  (echo $data_trip | jq -r '"\(.trip.trainType)-\(.trip.vzn)"')
# speed
echo speed (echo $data_status | jq -r '"\(.speed) km/h"')

## sonic-pi-tutorial.md

      
              1 file
            
          
              13 forks
            
          
              4 comments
            
          
              41 stars
            
          
                jwinder
                / sonic-pi-tutorial.md
            
            
              Last active
              September 22, 2023 20:12
            
              
                Sonic Pi in-app tutorials concatenated - last synced 27-08-2023 - https://sonic-pi.net/tutorial.html - https://github.com/samaaron/sonic-pi - All credit & thanks to Sam Aaron!
              
          
    1 Welcome to Sonic Pi
Welcome friend :-)

Welcome to Sonic Pi. Hopefully you're as excited to get started making
your own sounds as I am to show you. It's going to be a really fun
ride where you'll learn all about music, synthesis, programming,
composition, performance and more.

  
## My_R-Code_for_Mail.R
# Read texttable into R
# You need to specify the path to textfile (created with mailscanner.py)
# in the command below
inbox <- read.table("/Path/to/MyMail-inbox.txt", sep=",", colClasses = "character") # Read table as characters
colnames(inbox) <- c("Datum","Uhrzeit") # give names to colums
inbox$Datum <- strptime(inbox$Datum,format="%Y%m%d") # turn into format DATE
inbox$Uhrzeit <- strptime(inbox$Uhrzeit, format="%H%M%S") # turn into format TIME
plot(inbox$Datum, inbox$Uhrzeit) # plot the stuff
#
# Add data of another texttable

## Search-with-one-string.r
setwd('/home/produnis/Dokumente/Programmierung/R/PubMedTrend')# edit to fit your system
source('pubmed_trend.r')
source('plot_bar.r')
library("RColorBrewer")
#-------------------------------------------------------------
search.for1 <- "schnepp w[Author]"
#----------
search.pub1 <- pubmed_trend(search.str = search.for1, year.span=1990:2012)
	set -l data_status (curl -s https://iceportal.de/api1/rs/status)
	set -l data_trip (curl -s https://iceportal.de/api1/rs/tripInfo/trip)
	# next stop
	echo  (echo $data_trip \| jq -r '([ .trip.stops[] \| select(.info.passed==false) ]
	\| first).station.name')
	# train number
	echo  (echo $data_trip \| jq -r '"\(.trip.trainType)-\(.trip.vzn)"')
	# speed
	echo speed (echo $data_status \| jq -r '"\(.speed) km/h"')
	# Read texttable into R
	# You need to specify the path to textfile (created with mailscanner.py)
	# in the command below
	inbox <- read.table("/Path/to/MyMail-inbox.txt", sep=",", colClasses = "character") # Read table as characters
	colnames(inbox) <- c("Datum","Uhrzeit") # give names to colums
	inbox$Datum <- strptime(inbox$Datum,format="%Y%m%d") # turn into format DATE
	inbox$Uhrzeit <- strptime(inbox$Uhrzeit, format="%H%M%S") # turn into format TIME
	plot(inbox$Datum, inbox$Uhrzeit) # plot the stuff
	#
	# Add data of another texttable
	setwd('/home/produnis/Dokumente/Programmierung/R/PubMedTrend')# edit to fit your system
	source('pubmed_trend.r')
	source('plot_bar.r')
	library("RColorBrewer")
	#-------------------------------------------------------------
	search.for1 <- "schnepp w[Author]"
	#----------
	search.pub1 <- pubmed_trend(search.str = search.for1, year.span=1990:2012)