how to make plot side by side in r code example

Example: two plots side by side r

par(mfrow=c(1,2))    # set the plotting area into a 1*2 array
barplot(max.temp, main="Barplot")
pie(max.temp, main="Piechart", radius=1)
par(mfrow=c(1,1))