petermeissner

# function that loads packages 
package <- function(pkg, repo){
  pkg  <- as.character(as.list(match.call())$pkg)
  repo <- as.character(as.list(match.call())$repo)
  if ( !(pkg %in% as.data.frame(installed.packages())$Package) ){
    if( length(repo)!=0 ){
      package("devtools")
      devtools::install_github(paste0(repo,"/",pkg))
    }else{
      install.packages(pkg)

petermeissner

#' function for getting mode source: http://stackoverflow.com/a/8189441/1144966
#' @param x vector for which the mode should be returned
modus <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

petermeissner

### Description ###
# author:   peter meissner (https://github.com/petermeissner | http://pmeissner.com)
# purpose:  Browsing data frames in R is annoying. 
#           The function provided here allows to browse data frames within the 
#           browser using HTML and some JavaScript.



#' function for making html table
#' @param x data.frame or matrix to be transformed 

petermeissner

Once upon a time there was a tweet like that ...

https://twitter.com/fgilardi/status/573873339682418689/photo/1

R function transforming numbers into bar chart characters

to_char_bars <- function(input){

petermeissner

require(httr)

## Loading required package: httr

petermeissner

#!/path/2/Rscript

# License: CC0 (just be nice and point others to where you got this) Author:
# Robert M Flight <[email protected]>, github.com/rmflight
# 
# This is a post-commit hook that after a successful commit subsequently
# increments the package version in DESCRIPTION and commits that. Analogous to
# the pre-commit at https://gist.github.com/rmflight/8863882, but useful if you
# only have good reasons for not doing it on the pre-commit.
# 

petermeissner

[...]

```{r, include=FALSE}
RMDtoRpres <- function(fname){
  require(stringr)
  text <- readLines(fname, encoding="UTF-8")
    text <- paste(text, collapse="\n")
    author   <- str_replace_all(str_extract(text,'author: ".*?\n'),'["\n]',"")
    date     <- str_replace_all(str_extract(text,"date: '.*?\n"),'["\n]',"")
    title    <- str_replace(str_replace_all(str_extract(text,'title: ".*?\n'),'["\n]',""),"title: ","")