{"id":1259,"date":"2019-05-17T16:47:10","date_gmt":"2019-05-17T07:47:10","guid":{"rendered":"http:\/\/141.164.34.82\/?p=1259"},"modified":"2019-05-18T02:08:17","modified_gmt":"2019-05-17T17:08:17","slug":"untitled","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=1259","title":{"rendered":"R\uc5d0\uc11c \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac \uad00\ub9ac"},"content":{"rendered":"<h1>\ud654\uc77c\uacfc \ub514\ub809\ud1a0\ub9ac  \uad00\ub828 \ud568\uc218\ub4e4<\/h1>\n<p>\uc885\uc885 R\uc5d0\uc11c \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac\ub97c \uc0dd\uc131, \ubcc0\uacbd, \ubcf5\uc0ac, \uc0ad\uc81c\ud574\uc57c \ud560 \uc77c\uc774 \uc788\uc2b5\ub2c8\ub2e4. \uc790\uc8fc \uc0ac\uc6a9\ud558\uc9c0 \uc54a\ub294 \ud568\uc218\ub77c\uc11c \uc798 \uae30\uc5b5\ub098\uc9c0 \uc54a\ub294 \uacbd\uc6b0\uac00 \ub9ce\uc558\uc2b5\ub2c8\ub2e4. \ub2e4\uc74c\uc5d0\uc11c R\uc758 \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac \uad00\ub828 \ud568\uc218\ub4e4\uc744 \uc815\ub9ac\ud558\uc600\uc2b5\ub2c8\ub2e4. <\/p>\n<ul>\n<li><strong>\uc8fc\uc758!!!<\/strong> : \ub2e4\uc74c\uc758 \ucf54\ub4dc\ub97c \uc2e4\ud589\ud558\uba74 <code>__temp<\/code>, <code>__temp2<\/code>, <code>__temp3<\/code> \ub4f1\uc758 \ub514\ub809\ud1a0\ub9ac, \uadf8\ub9ac\uace0 <code>__temp.txt<\/code>\ub77c\ub294 \ud654\uc77c \ub4f1\uc774 \uc218\uc815, \uc0ad\uc81c\ub418\ub2c8 \uc8fc\uc758\ud558\uc2dc\uae30 \ubc14\ub78d\ub2c8\ub2e4. <\/li>\n<\/ul>\n<h2>\ub514\ub809\ud1a0\ub9ac<\/h2>\n<pre><code class=\"r\">library(magrittr)\nlist.dirs(path=&#39;.&#39;, full.names=TRUE, recursive=TRUE) %&gt;% head(5)\n<\/code><\/pre>\n<pre>## [1] &quot;.&quot;            &quot;.\/.git&quot;       &quot;.\/.git\/hooks&quot; &quot;.\/.git\/info&quot; \n## [5] &quot;.\/.git\/logs&quot;\n<\/pre>\n<p><code>list.dirs<\/code>\ub97c \ud1b5\ud574 \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac(\ud3f4\ub354)\uc758 \ubaa8\ub4e0 \ub514\ub809\ud1a0\ub9ac(\ud3f4\ub354)\ub97c \ud655\uc778\ud560 \uc218 \uc788\ub2e4.<\/p>\n<p>\ub2e4\uc74c\uc740 \ub514\ub809\ud1a0\ub9ac\ub97c \ub9cc\ub4e4\uace0, \ud655\uc778\ud558\uace0, \uc774\ub984\uc744 \ubcc0\uacbd\ud558\uace0, \uc0ad\uc81c\ud558\ub294 \uacfc\uc815\uc744 \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<pre><code class=\"r\">unlink(&quot;__temp2&quot;, recursive=TRUE)\ndir.exists(&#39;__temp&#39;) # \ub514\ub809\ud1a0\ub9ac \uc874\uc7ac \ud655\uc778\ndir.create(&#39;__temp&#39;) # \ub514\ub809\ud1a0\ub9ac \ub9cc\ub4e4\uae30\n<\/code><\/pre>\n<pre>## Warning in dir.create(&quot;__temp&quot;): &#39;__temp&#39; already exists\n<\/pre>\n<pre><code class=\"r\">shell(&#39;ren __temp __temp2&#39;) # \ub514\ub809\ud1a0\ub9ac \uc774\ub984 \ubc14\uafb8\uae30 Windows\n# shell(&#39;mv __temp __temp2&#39;) # Linux\n\n# \ub514\ub809\ud1a0\ub9ac \ubcf5\uc0ac: dir.create(), file.copy()\ndir.create(&#39;__temp3&#39;) \n<\/code><\/pre>\n<pre>## Warning in dir.create(&quot;__temp3&quot;): &#39;__temp3&#39; already exists\n<\/pre>\n<pre><code class=\"r\">file.copy(&#39;__temp2&#39;, &#39;__temp3&#39;, recursive=TRUE)\n<\/code><\/pre>\n<pre>## [1] TRUE\n## [1] TRUE\n<\/pre>\n<p>\uc704\uc758 \ud568\uc218\ub4e4\uc740 \ubaa8\ub450 \uae30\ubcf8\uc801\uc73c\ub85c \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac(Current directory)\ub97c \uae30\uc900\uc73c\ub85c \ub514\ub809\ud1a0\ub9ac\ub97c \ub2e4\ub8ec\ub2e4. \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac\ub294 \ub2e4\uc74c\uc758 \ud568\uc218\ub97c \uc774\uc6a9\ud558\uc5ec \uc124\uc815\ud560 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">getwd() # \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac \ud655\uc778\nsetwd(&#39;.&#39;) # \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac \uc218\uc815\n<\/code><\/pre>\n<pre>## [1] &quot;D:\/git\/dataanalysiswithr04&quot;\n<\/pre>\n<h3>\ub514\ub809\ud1a0\ub9ac \uad00\ub828 \ud568\uc218 \uc815\ub9ac<\/h3>\n<table>\n<thead>\n<tr>\n<th align=\"left\">\ud568\uc218<\/th>\n<th align=\"left\">\uae30\ub2a5<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"left\"><code>getwd()<\/code><\/td>\n<td align=\"left\">\ud604\uc7ac(\uc791\uc5c5) \ub514\ub809\ud1a0\ub9ac<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>setwd()<\/code><\/td>\n<td align=\"left\">\ud604\uc7ac(\uc791\uc5c5) \ub514\ub809\ud1a0\ub9ac \uc124\uc815<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>list.dirs(path=&#39;.&#39;, ...)<\/code><\/td>\n<td align=\"left\"><code>path<\/code>\uc758 \ub514\ub809\ud1a0\ub9ac \ub098\uc5f4<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>dir.exists(paths)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac <code>paths<\/code>\uc758 \uc874\uc7ac \uc5ec\ubd80<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>dir.create(path)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac <code>path<\/code> \uc0dd\uc131<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>shell(&#39;ren __temp1 __temp2&#39;)<\/code><\/td>\n<td align=\"left\">\uc708\ub3c4\uc6b0\uc5d0\uc11c \ub514\ub809\ud1a0\ub9ac \uc774\ub984 \ubcc0\uacbd<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>shell(&#39;mv __temp1 __temp2&#39;)<\/code><\/td>\n<td align=\"left\">Linux\uc5d0\uc11c \ub514\ub809\ud1a0\ub9ac \uc774\ub984 \ubcc0\uacbd<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>dir.copy(from, to)<\/code><\/td>\n<td align=\"left\">\uc0ac\uc6a9\uc790 \uc815\uc758 \ud568\uc218(\uc544\ub798 \ucc38\uc870). \ub514\ub809\ud1a0\ub9ac \ubcf5\uc0ac<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>unlink(x, recursive=TRUE)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac <code>x<\/code> \uc0ad\uc81c<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>unlink(x, recursive=TRUE, force=TRUE)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac <code>x<\/code> \uc0ad\uc81c(\ud654\uc77c\uc774 \uc77d\uae30 \uc804\uc6a9\uc774\ub77c\ub3c4)<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h2>\uc2a4\ud06c\ub9bd\ud2b8<\/h2>\n<p>\uc704\uc5d0\uc11c \ub514\ub809\ud1a0\ub9ac \ubcf5\uc0ac\ub294 <code>dir.create()<\/code>\uacfc <code>file.copy()<\/code>\ub97c \uc5f0\uc18d\uc73c\ub85c \uc801\uc6a9\ud558\uc600\uc2b5\ub2c8\ub2e4. \uc774\ub97c \ud558\ub098\uc758 \ud568\uc218\ub85c \ub9cc\ub4e4\uc5b4\uc11c <code>dir.copy()<\/code>\ub77c\ub294 \ud568\uc218\ub97c \uc815\uc758\ud558\uc600\uc2b5\ub2c8\ub2e4. \ud558\uc9c0\ub9cc \uc774 \ud568\uc218\ub97c \ud56d\uc0c1 \uc0ac\uc6a9\ud558\ub824\uba74 \uc5b4\ub5bb\uac8c \ud574\uc57c \ud560\uae4c\uc694.<\/p>\n<p>\ud55c\uac00\uc9c0 \ubc29\ubc95\uc740 <code>dircopy.R<\/code>\uc774\ub77c\ub294 \uc2a4\ud06c\ub9bd\ud2b8 \ud654\uc77c\ub85c \uc800\uc7a5\ud55c \ud6c4\uc5d0, \ub098\uc911\uc5d0 <code>source()<\/code> \ud568\uc218\ub85c \ubd88\ub7ec \uc624\ub294 \uac83\uc785\ub2c8\ub2e4. \ub2e4\uc74c\uc758 \ucf54\ub4dc\ub294 \uc774 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4. <\/p>\n<pre><code class=\"r\">txt &lt;- &quot;\ndir.copy = function(from, to, checkto= TRUE, overwrite=FALSE, recursive=FALSE, ...) {\n  if (!dir.exists(from)) {\n    cat(&#39;Directory&#39;, from, &#39;DOES NOT exist.\\n&#39;)\n    stop()\n  }\n\n  if (checkto == TRUE) {\n    if (dir.exists(to)) {\n      cat(&#39;Directory&#39;, to, &#39;exists. checkto=FALSE to copy files to the EXISTING directory.\\n&#39;)\n      stop() } \n  } else {\n    if (!dir.exists(to)) dir.create(to)\n  }\n\n  if (length(list.files(from, recursive=recursive, ...))==0) {\n    error(&#39;No files to be copied&#39;)\n  } else {\n    file.copy(from=from, to=to, overwrite=overwrite, recursive=recursive, ...)\n  }\n}\n&quot;\nwriteLines(txt, &quot;dircopy.R&quot;)\nsource(&#39;dircopy.R&#39;)\n<\/code><\/pre>\n<h3>\uc2a4\ud06c\ub9bd\ud2b8\/\ud14d\uc2a4\ud2b8 \ud654\uc77c \uad00\ub828 \ud568\uc218 \uc694\uc57d<\/h3>\n<table>\n<thead>\n<tr>\n<th align=\"left\">\ud568\uc218<\/th>\n<th align=\"left\">\uae30\ub2a5<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"left\"><code>readLines(&#39;dircopy.R&#39;)<\/code><\/td>\n<td align=\"left\">\ud14d\uc2a4\ud2b8 \ud654\uc77c <code>&#39;dircopy.R&#39;<\/code> \ub0b4\uc6a9 \uc77d\uae30<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>writeLines(text=c(&#39;aaa&#39;, &#39;bbb&#39;), con=&#39;__temp.txt&#39;)<\/code><\/td>\n<td align=\"left\"><code>c(&#39;aaa&#39;, &#39;bbb&#39;)<\/code>\ub97c \ud654\uc77c <code>&#39;__temp.txt&#39;<\/code>\uc5d0 \uc4f0\uae30<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>source(&#39;dircopy.R&#39;)<\/code><\/td>\n<td align=\"left\">\ud14d\uc2a4\ud2b8 \ud654\uc77c <code>dircopy.R<\/code>\uc758 \ub0b4\uc6a9\uc744 \uc2e4\ud589\ud558\uae30<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h2>\ud654\uc77c<\/h2>\n<pre><code class=\"r\">txt = &#39;This is test!&#39;\nwriteLines(text = txt, \n           con = &#39;__temp.txt&#39;)\n\nfn = &#39;__temp.txt&#39;\nfile.info(fn)\n# size : \ud654\uc77c \ud06c\uae30(\ubc14\uc774\ud2b8)\n# isdir : \ub514\ub809\ud1a0\ub9ac \uc5ec\ubd80\n# mode : \uc77d\uae30\/\uc4f0\uae30\/\uc2e4\ud589 \uac00\ub2a5 \uc5ec\ubd80 \n#        (\uc608. 666 = \ubaa8\ub4e0 \uc0ac\uc6a9\uc790 \uc4f0\uae30\/\uc77d\uae30 \uac00\ub2a5\n#             777 = \ubaa8\ub4e0 \uc0ac\uc6a9\uc790 \uc4f0\uae30\/\uc77d\uae30\/\uc2e4\ud589 \uac00\ub2a5)\n# mtime : \ub9c8\uc9c0\ub9c9 \uc218\uc815 \uc2dc\uac04\n# ctime : \ub9c8\uc9c0\ub9c9 \uc0c1\ud0dc \ubcc0\ud654(status change) \uc2dc\uac04\n# atime : \ub9c8\uc9c0\ub9c9 \uc811\uadfc \uc2dc\uac04\n# exe : \uc2e4\ud589 \uac00\ub2a5\ud55c \ud30c\uc77c\uc778\uac00?\n<\/code><\/pre>\n<pre>##            size isdir mode               mtime               ctime\n## __temp.txt   15 FALSE  666 2019-05-18 02:08:16 2019-05-17 16:42:51\n##                          atime exe\n## __temp.txt 2019-05-17 16:42:51  no\n<\/pre>\n<p><code>file.info()<\/code>\ub85c \ud654\uc77c \uc815\ubcf4\ub97c \uc54c\uc544 \ubcfc \uc218 \uc788\ub2e4. <\/p>\n<p>\ub2e4\uc74c\uc740 \ud654\uc77c\uacfc \uad00\ub828\ub41c R \ud568\uc218\ub97c \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<pre><code class=\"r\">dir(path=&#39;.&#39;) %&gt;% head(5) # \ud604\uc7ac \ub514\ub809\ud1a0\ub9ac\uc758 \ud654\uc77c\ub4e4\ndir(path=&#39;.&#39;, recursive = TRUE) %&gt;% head(5) # \ud604\uc7ac\uc640 \ud558\uc704 \ub514\ub809\ud1a0\ub9ac\uc758 \ud654\uc77c\ub4e4\n\nfile.exists(fn) # \ud654\uc77c \uc874\uc7ac \uc5ec\ubd80 \ud655\uc778\nfnCopy=paste0(&#39;_&#39;,fn)\nfile.copy(from=fn, to=fnCopy) # \ud654\uc77c \ubcf5\uc0ac\nfile.rename(from=fnCopy, to=paste0(&#39;_&#39;,fnCopy)) # \ud654\uc77c \uc774\ub984 \uc218\uc815\nfile.remove(paste0(&#39;__&#39;,fn)) # \ud654\uc77c \uc0ad\uc81c\n<\/code><\/pre>\n<pre>## [1] &quot;_&quot;            &quot;__temp().txt&quot; &quot;__temp(3)&quot;    &quot;__temp.txt&quot;  \n## [5] &quot;__temp2&quot;     \n## [1] &quot;_&quot;             &quot;__temp().txt&quot;  &quot;__temp.txt&quot;    &quot;_Functions.R&quot; \n## [5] &quot;_packages.txt&quot;\n## [1] TRUE\n## [1] TRUE\n## [1] TRUE\n## [1] TRUE\n<\/pre>\n<pre><code class=\"r\">fn &lt;- file.choose() # \ud654\uc77c \uc120\ud0dd\uae30 \n<\/code><\/pre>\n<h3>\ud654\uc77c \uad00\ub828 \ud568\uc218 \uc815\ub9ac<\/h3>\n<table>\n<thead>\n<tr>\n<th align=\"left\">\ud568\uc218<\/th>\n<th align=\"left\">\uae30\ub2a5<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"left\"><code>dir(path=&#39;.&#39;)<\/code><\/td>\n<td align=\"left\"><code>path<\/code>\uc758 \ub514\ub809\ud1a0\ub9ac \ud654\uc77c \ub098\uc5f4<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>dir(path=&#39;.&#39;, recursive=TRUE)<\/code><\/td>\n<td align=\"left\"><code>path<\/code>\uc758 \ub514\ub809\ud1a0\ub9ac \uc548\uc758 \ubaa8\ub4e0 \ub514\ub809\ud1a0\ub9ac\uc5d0 \ub300\ud574 \ud654\uc77c \ub098\uc5f4<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.exists(&#39;__temp.txt&#39;)<\/code><\/td>\n<td align=\"left\">\ud654\uc77c <code>&#39;__temp.txt<\/code> \uc874\uc7ac \uc5ec\ubd80 \ud655\uc778<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.copy(fn, fn2)<\/code><\/td>\n<td align=\"left\">\ud654\uc77c <code>fn<\/code> \ubcf5\uc0ac(\uc774\ub984 <code>fn2<\/code>\ub85c)<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.rename(fn, fn2)<\/code><\/td>\n<td align=\"left\">\ud654\uc77c <code>fn<\/code> \uc774\ub984 \ubcc0\uacbd(\uc774\ub984 <code>fn2<\/code>\ub85c)<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.remove(fn)<\/code><\/td>\n<td align=\"left\">\ud654\uc77c <code>fn<\/code> \uc0ad\uc81c<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.choose()<\/code><\/td>\n<td align=\"left\">\ud654\uc77c \uc120\ud0dd\uae30\ub97c \uc0ac\uc6a9\ud55c \ud654\uc77c \uc120\ud0dd<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h3>\ud654\uc77c \uc774\ub984\uacfc \uad00\ub828\ub41c \ud568\uc218\ub4e4<\/h3>\n<p>R\uc5d0\ub294 \ud654\uc77c \uc774\ub984\uacfc \uad00\ub828\ub41c \uc870\uc791\uc744 \uc704\ud574 \ub9c8\ub828\ub41c \uba87 \uac00\uc9c0 \ud568\uc218\ub4e4\uc774 \uc788\uc2b5\ub2c8\ub2e4. \uc815\uaddc\ud45c\ud604\uc2dd\ubcf4\ub2e4 \uac04\ub2e8\ud558\uac8c \ud654\uc77c \uc774\ub984\uacfc \uad00\ub828\ub41c \uc77c\uc744 \uc218\ud589\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/p>\n<table>\n<thead>\n<tr>\n<th align=\"left\">\ud568\uc218<\/th>\n<th align=\"left\">\uae30\ub2a5<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"left\"><code>basename(path)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac\ub97c \ud3ec\ud568\ud55c \ud654\uc77c\uc774\ub984\uc5d0\uc11c <strong>\ud654\uc77c\uc774\ub984\ub9cc<\/strong> \ucd94\ucd9c\ud558\uae30<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>dirname(path)<\/code><\/td>\n<td align=\"left\">\ub514\ub809\ud1a0\ub9ac\ub97c \ud3ec\ud568\ud55c \ud654\uc77c\uc774\ub984\uc5d0\uc11c <strong>\ub514\ub809\ud1a0\ub9ac \uc774\ub984\ub9cc<\/strong> \ucd94\ucd9c\ud558\uae30<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>file.path(...)<\/code><\/td>\n<td align=\"left\"><code>&quot;C&quot;<\/code>,<code>&quot;__temp&quot;<\/code>, <code>&quot;__temp.txt&quot;<\/code> \ub4f1\uc744 \uc5f0\uacb0\ud558\uc5ec <code>&quot;C:\/__temp\/__temp.txt&quot;<\/code>\ub97c \ub9cc\ub4e4\uc5b4 \uc90c<\/td>\n<\/tr>\n<tr>\n<td align=\"left\"><code>path.expand(&#39;~\/foo&#39;)<\/code><\/td>\n<td align=\"left\"><code>&quot;~&quot;<\/code>\ub97c \uc2e4\uc81c \ub514\ub809\ud1a0\ub9ac \uc774\ub984\uc744 \ubc14\uafd4\uc90c<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<hr\/>\n<p>\uc774\uc0c1\uc744 \ud1b5\ud574 R\uc5d0\uc11c \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac\ub97c \uc0dd\uc131, \ubcc0\uacbd, \ubcf5\uc0ac, \uc0ad\uc81c\ud558\ub294 \ubc29\ubc95\uc744 \uc54c\uc544\ubcf4\uc558\uc2b5\ub2c8\ub2e4. <\/p>\n","protected":false},"excerpt":{"rendered":"<p>\ud654\uc77c\uacfc \ub514\ub809\ud1a0\ub9ac \uad00\ub828 \ud568\uc218\ub4e4 \uc885\uc885 R\uc5d0\uc11c \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac\ub97c \uc0dd\uc131, \ubcc0\uacbd, \ubcf5\uc0ac, \uc0ad\uc81c\ud574\uc57c \ud560 \uc77c\uc774 \uc788\uc2b5\ub2c8\ub2e4. \uc790\uc8fc \uc0ac\uc6a9\ud558\uc9c0 \uc54a\ub294 \ud568\uc218\ub77c\uc11c \uc798 \uae30\uc5b5\ub098\uc9c0 \uc54a\ub294 \uacbd\uc6b0\uac00 \ub9ce\uc558\uc2b5\ub2c8\ub2e4. \ub2e4\uc74c\uc5d0\uc11c R\uc758 \ud654\uc77c\/\ub514\ub809\ud1a0\ub9ac \uad00\ub828 \ud568\uc218\ub4e4\uc744 \uc815\ub9ac\ud558\uc600\uc2b5\ub2c8\ub2e4. \uc8fc\uc758!!! : \ub2e4\uc74c\uc758 \ucf54\ub4dc\ub97c \uc2e4\ud589\ud558\uba74 __temp, __temp2, __temp3 \ub4f1\uc758 \ub514\ub809\ud1a0\ub9ac, \uadf8\ub9ac\uace0 __temp.txt\ub77c\ub294 \ud654\uc77c \ub4f1\uc774 \uc218\uc815, \uc0ad\uc81c\ub418\ub2c8 \uc8fc\uc758\ud558\uc2dc\uae30 \ubc14\ub78d\ub2c8\ub2e4. \ub514\ub809\ud1a0\ub9ac library(magrittr) list.dirs(path=&#39;.&#39;, full.names=TRUE, recursive=TRUE) %&gt;% head(5) ## [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":1265,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[28,289],"tags":[292,298,295,297,294,296,291,293,290],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/05\/files-2.png","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1259"}],"collection":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1259"}],"version-history":[{"count":4,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1259\/revisions"}],"predecessor-version":[{"id":1266,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1259\/revisions\/1266"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/1265"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1259"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1259"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1259"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}