| 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) | |
| # 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 |
| 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"') |
| "editor.tokenColorCustomizations": { | |
| "textMateRules": [ | |
| { | |
| "scope": [ | |
| "support.function.general.tex", | |
| "support.function.textit.latex", | |
| "support.function.texttt.latex", | |
| "support.function.textbf.latex", | |
| "support.function.textsc.latex", | |
| "support.function.url.latex", |