My useful comands in R

writeLines() in multiple line.

writeLines(c("酒逢知己飲," , "詩向會人吟。" , "相識滿天下", "知心能幾人。" ,"", "- Nghĩa hán nôm: " , "Tửu phùng tri kỷ ẩm", "thi hướng hội nhân ngâm",  "Tương thức mãn thiên hạ", "tri tâm năng kỷ nhân.","",  "Dịh nôm na là:", "Uống rượu phải cùng với người biết mình,  ngâm thơ thì phải có hội người thưởng thức, giao thiệp khắp thiên hạ, nhưng thực sự hiểu ta thì ít người lắm."  ))
## 酒逢知己飲,
## 詩向會人吟。
## 相識滿天下
## 知心能幾人。
## 
## - Nghĩa hán nôm: 
## Tửu phùng tri kỷ ẩm
## thi hướng hội nhân ngâm
## Tương thức mãn thiên hạ
## tri tâm năng kỷ nhân.
## 
## Dịh nôm na là:
## Uống rượu phải cùng với người biết mình,  ngâm thơ thì phải có hội người thưởng thức, giao thiệp khắp thiên hạ, nhưng thực sự hiểu ta thì ít người lắm.

cat() in multiple line.

we can alternativel write line with cat()
cat("酒逢知己飲,
詩向會人吟,
相識滿天下,
知心能幾人。

Nghĩa Hán Việt:
Tửu phùng tri kỷ ẩm, thi hướng hội nhân ngâm. 
Tương thức mãn thiên hạ, tri tâm năng kỷ nhân.  

Dịch Nôm na là : 
uống rượu phải cùng với người biết mình,  ngâm thơ thì phải có hội người thưởng thức, giao thiệp khắp thiên hạ, nhưng thực sự hiểu ta thì ít người lắm.\n"
)
## 酒逢知己飲,
## 詩向會人吟,
## 相識滿天下,
## 知心能幾人。
## 
## Nghĩa Hán Việt:
## Tửu phùng tri kỷ ẩm, thi hướng hội nhân ngâm. 
## Tương thức mãn thiên hạ, tri tâm năng kỷ nhân.  
## 
## Dịch Nôm na là : 
## uống rượu phải cùng với người biết mình,  ngâm thơ thì phải có hội người thưởng thức, giao thiệp khắp thiên hạ, nhưng thực sự hiểu ta thì ít người lắm.

cat() Display string and output in one line

 x <- sqrt(9)
cat("Hàm sqrt(9),", "nghĩa là căn bậc hai của số chín là ",  x , ", chú thích lệnh là in dữ liệu trên 1 hàng.\n")
## Hàm sqrt(9), nghĩa là căn bậc hai của số chín là  3 , chú thích lệnh là in dữ liệu trên 1 hàng.
LS0tDQp0aXRsZTogIlVzZWZ1bCBSIGNvbW1hbmRzIg0Kc3VidGl0bGU6IDxhIG5hbWU9ImhvbWUiPjwvYT4NCmF1dGhvcjogIkhlbnJ5Ig0KZGF0ZTogImByIFN5cy5EYXRlKClgIg0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IGZhbHNlDQogIHdvcmRfZG9jdW1lbnQ6DQogICAgdG9jOiB0cnVlDQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHRydWUNCiAgd29yZF9kb2N1bWVudHM6DQogICAgdG9jOiB0cnVlDQphbHdheXNfYWxsb3dfaHRtbDogdHJ1ZQ0KZWRpdG9yX29wdGlvbnM6IA0KICBjaHVua19vdXRwdXRfdHlwZTogY29uc29sZQ0KLS0tDQoNCg0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoDQoJZWNobyA9IFRSVUUsDQoJbWVzc2FnZSA9IEZBTFNFLA0KCXdhcm5pbmcgPSBGQUxTRSwNCgllbmNvZGluZyA9ICdVVEYtOCcNCikNCmBgYA0KDQoNCg0KPHAgc3R5bGU9InRleHQtYWxpZ246IGNlbnRlcjsgYmFja2dyb3VuZC1jb2xvcjpwb3dkZXJibHVlOyBjb2xvcjpSZWQ7Ij4qKk15IHVzZWZ1bCBjb21hbmRzIGluIFIqKjwvcD4NCg0KDQoNCiMjIHdyaXRlTGluZXMoKSBpbiBtdWx0aXBsZSBsaW5lLg0KICAgIA0KDQpgYGB7cn0NCg0Kd3JpdGVMaW5lcyhjKCLphZLpgKLnn6Xlt7Hpo7LvvIwiICwgIuipqeWQkeacg+S6uuWQn+OAgiIgLCAi55u46K2Y5ru/5aSp5LiLIiwgIuefpeW/g+iDveW5vuS6uuOAgiIgLCIiLCAiLSBOZ2jEqWEgaMOhbiBuw7RtOiAiICwgIlThu611IHBow7luZyB0cmkga+G7tyDhuqltIiwgInRoaSBoxrDhu5tuZyBo4buZaSBuaMOibiBuZ8OibSIsICAiVMawxqFuZyB0aOG7qWMgbcOjbiB0aGnDqm4gaOG6oSIsICJ0cmkgdMOibSBuxINuZyBr4bu3IG5ow6JuLiIsIiIsICAiROG7i2ggbsO0bSBuYSBsw6A6IiwgIlXhu5FuZyByxrDhu6N1IHBo4bqjaSBjw7luZyB24bubaSBuZ8aw4budaSBiaeG6v3QgbcOsbmgsICBuZ8OibSB0aMahIHRow6wgcGjhuqNpIGPDsyBo4buZaSBuZ8aw4budaSB0aMaw4bufbmcgdGjhu6ljLCBnaWFvIHRoaeG7h3Aga2jhuq9wIHRoacOqbiBo4bqhLCBuaMawbmcgdGjhu7FjIHPhu7EgaGnhu4N1IHRhIHRow6wgw610IG5nxrDhu51pIGzhuq9tLiIgICkpDQoNCmBgYA0KDQojIyBjYXQoKSBpbiBtdWx0aXBsZSBsaW5lLg0KICAgIHdlIGNhbiBhbHRlcm5hdGl2ZWwgd3JpdGUgbGluZSB3aXRoIGNhdCgpDQoNCmBgYHtyfQ0KY2F0KCLphZLpgKLnn6Xlt7Hpo7IsDQroqanlkJHmnIPkurrlkJ8sDQrnm7jorZjmu7/lpKnkuIvvvIwNCuefpeW/g+iDveW5vuS6uuOAgg0KDQpOZ2jEqWEgSMOhbiBWaeG7h3Q6DQpU4butdSBwaMO5bmcgdHJpIGvhu7cg4bqpbSwgdGhpIGjGsOG7m25nIGjhu5lpIG5ow6JuIG5nw6JtLiANClTGsMahbmcgdGjhu6ljIG3Do24gdGhpw6puIGjhuqEsIHRyaSB0w6JtIG7Eg25nIGvhu7cgbmjDom4uICANCg0KROG7i2NoIE7DtG0gbmEgbMOgIDogDQp14buRbmcgcsaw4bujdSBwaOG6o2kgY8O5bmcgduG7m2kgbmfGsOG7nWkgYmnhur90IG3DrG5oLCAgbmfDom0gdGjGoSB0aMOsIHBo4bqjaSBjw7MgaOG7mWkgbmfGsOG7nWkgdGjGsOG7n25nIHRo4bupYywgZ2lhbyB0aGnhu4dwIGto4bqvcCB0aGnDqm4gaOG6oSwgbmjGsG5nIHRo4buxYyBz4buxIGhp4buDdSB0YSB0aMOsIMOtdCBuZ8aw4budaSBs4bqvbS5cbiINCikNCmBgYA0KDQogICAgDQojIyBjYXQoKSBEaXNwbGF5IHN0cmluZyBhbmQgb3V0cHV0IGluIG9uZSBsaW5lDQoNCmBgYHtyfQ0KIHggPC0gc3FydCg5KQ0KY2F0KCJIw6BtIHNxcnQoOSksIiwgIm5naMSpYSBsw6AgY8SDbiBi4bqtYyBoYWkgY+G7p2Egc+G7kSBjaMOtbiBsw6AgIiwgIHggLCAiLCBjaMO6IHRow61jaCBs4buHbmggbMOgIGluIGThu68gbGnhu4d1IHRyw6puIDEgaMOgbmcuXG4iKQ0KDQpgYGANCg0KICAgIA==