Pipe_test.R

#Minh họa Toán tử Pipe trong package tidyverse
#Bs. Lê Ngọc Khả Nhi

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.3.2

## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr

## Warning: package 'ggplot2' was built under R version 3.3.2

## Warning: package 'readr' was built under R version 3.3.2

## Warning: package 'purrr' was built under R version 3.3.2

## Conflicts with tidy packages ----------------------------------------------

## filter(): dplyr, stats
## lag():    dplyr, stats

# Creating a function named "PartialOxygen" that simulate the PO2 at 3 levels
PartialOxygen=function(PO2,level){
  pO2=PO2
  if(level=="Trachea"){
    pO2=pO2-5
  }else if (level=="alveoli"){
    pO2=PO2-60
  }else if (level=="arteries"){
    pO2=PO2-20
  }else{pO2=NA}
  cat("PaO2 level at",level,"=",pO2,"mmHg /")
  invisible(pO2)
}

#Call this function 3 times

PO2<-160
PO2<-PartialOxygen(PO2,level="Trachea")

## PaO2 level at Trachea = 155 mmHg /

PO2<-PartialOxygen(PO2,level="alveoli")

## PaO2 level at alveoli = 95 mmHg /

PO2<-PartialOxygen(PO2,level="arteries")

## PaO2 level at arteries = 75 mmHg /

# Now, use the PIPE:
PO2<-160
PO2%>%PartialOxygen(level="Trachea")%>%PartialOxygen(level="alveoli")%>%PartialOxygen(level="arteries")

## PaO2 level at Trachea = 155 mmHg /PaO2 level at alveoli = 95 mmHg /PaO2 level at arteries = 75 mmHg /

#Can you see the difference ?