Using NanumGothic in R

gistfile1.txt

NanumGothic <- CIDFont('NanumGothic', 'KSCms-UHC-H', 'CP949', '
	/FontDescriptor
	<<
		/Type /FontDescriptor
		/CapHeight 737
		/Ascent 752
		/Descent -271
		/StemV 58
		/FontBBox [-199 -145 1903 880]
		/ItalicAngle 0
		/Flags 4
		/XHeight 553
		/Style <</Panose <000001000600000000000000> >>
	>>
		/CIDSystemInfo << /Registry(Adobe) /Ordering(Korea1) /Supplement 1 >>
		/DW 1000
		/W [
			1 [321 932 787 666 532 1067 696 563 497 497 702 723 701 544 332 787 647 531 642 653 705 655 616 577 618 626 390 526 726 826 726 714 1000 800 700 700 800 666 605 823 700 302 302 729 580 1000 768 868 666 799 666 623 584 853 766 1000 808 770 724 544 1123 544 863 814 526 598 715 598 698 615 396 656 656 302 402 552 302 932 650 670 670 670 510 530 470 650 510 900]
			89 [527 537 524 524 411 411 416]
			97 [471]
			105 [509 514]
			109 [524 375]
			114 [443 410 455 465]
			132 [504]
			139 [510 510]
			156 [308]
			199 [781]
			209 [706]
			216 [512]
			244 [568 408 454]
			667 [362]
			735 [439 439 427 427 817 817 746 746 450 450 349 349 348]
			752 [706]
			769 [599]
			843 [864 853]
			1020 [635 795 760 834 632 854 676 891 804 854 759 788 907 713 671 672 691 588 784 646 646 834 662 635 635 624 721 842 693 652 658 652 625 659 625 852 658 726 608]
			1060 [814 850 716 764 618 628 852 633]
			8094 [605 932 787 666 732 787 636 563 857 787 302 423 701 544 1029 787 847 637 847 682 605 605 787 726 1089 726 726 605 423 1026 423 714 605 302 605 666 544 666 605 423 666 666 302 329 580 302 968 666 666 666 666 423 484 423 666 544 908 570 524 544 363 302 363 714 1026 498 915]
			8166 [350]
			8169 [600]
			8171 [470 924]
			8176 [245 245 410 410 404 418 527 537 524 524 411 411 416]
			8237 [408 455]
			8582 [512]
			8599 [506]
			8607 [454]
			8612 [512 308]
			8763 [323]
			8791 [348 724 518]
			9324 [522]
			9326 [512]
		]
	')
pdfFonts(NanumGothic=NanumGothic)