add_POST <- search_POST <- function(url, path, index=NULL, type=NULL, args, body) {

#...

}

library(rjson)

json_body <- fromJSON('[ 

                      {"name": "Samuel", "rank": 1},

                      {"name": "Laba", "rank": 2},

                      {"name": "Oppa", "rank": 3}

                      ]')

data_frame = as.data.frame(do.call(rbind, json_body))

data_frame

> data_frame

    name rank

1 Samuel    1

2   Laba    2

3   Oppa    3

> typeof(data_frame)

[1] "list"

> class(data_frame)

[1] "data.frame"

library(Matrix)

df <- data.frame(matrix(sample(c(NA, 1:10), 25, replace = TRUE), 5))

df[is.na(df)] <- 0

> df <- data.frame(matrix(sample(c(NA, 1:10), 25, replace = TRUE), 5))

> df

  X1 X2 X3 X4 X5

1  2 10  6  6 NA

2  3  5 10  5 NA

3 10  7  6  6  2

4  3  2  1  3  4

5  3  7  6  4  6

> df[is.na(df)] <- 0

> df

  X1 X2 X3 X4 X5

1  2 10  6  6  0

2  3  5 10  5  0

3 10  7  6  6  2

4  3  2  1  3  4

5  3  7  6  4  6

is.defined_function = function(x) { !is.null(x) }

df

is.defined_function(df)

xxxx

is.defined_function(xxxx)

library(httr) 

r <- GET("http://www.naver.com")

r$status_code

r$cookies

r$request

#install(httr)

library(httr) 

user <- "samuel"

password <- "sam8a2" 

POST(url = 'http://localhost/login',      

config = c(authenticate(user, password, "basic"), 

add_headers(Connection = "keep-alive"),

accept_json()),      

body = "{'auth-key:'sadfasdf1231'}"

)

> readline("Do you like coffee?")

Do you like coffee?n

[1] "n"

fun <- function() {

  ANSWER <- readline("Do you like coffe? ")

  if (substr(ANSWER, 1, 1) == "y")

    cat("YOU LIED!\n")

  else

    cat("YOU LIED NOT!\n")

}

if(interactive()) fun()

Do you like coffe? y

YOU LIED!

$ cat complete.tmp

{"name":"Jason"}

readLines("complete.tmp")

[1] "{\"name\":\"Jason\"}"

servers[0]

servers[1]

servers[length(servers)]

servers[length(servers) + 1]

> servers[0]

character(0)

> servers[1]

[1] "green01"

> servers[length(servers)]

[1] "green02"

> servers[length(servers) + 1]

[1] NA

m2 <- cbind(1,1:4)

typeof(m2)

class(m2)

m2

colnames(m2) <- c("C1","C2")

m2

colnames(m2) <- paste("MAX", colnames(m2), sep = "_")

m2

rownames(m2) <- c("R1", "R2", "R3", "R4")

m2

rownames(m2) <- c("R1", "R2", "R3", "R4", "R5")

> m2 <- cbind(1,1:4)

> typeof(m2)

[1] "double"

> class(m2)

[1] "matrix"

> m2

     [,1] [,2]

[1,]    1    1

[2,]    1    2

[3,]    1    3

[4,]    1    4

> colnames(m2) <- c("C1","C2")

> m2

     C1 C2

[1,]  1  1

[2,]  1  2

[3,]  1  3

[4,]  1  4

> colnames(m2) <- paste("MAX", colnames(m2), sep = "_")

> m2

     MAX_C1 MAX_C2

[1,]      1      1

[2,]      1      2

[3,]      1      3

[4,]      1      4

> rownames(m2) <- c("R1", "R2", "R3", "R4")

> m2

   MAX_C1 MAX_C2

R1      1      1

R2      1      2

R3      1      3

R4      1      4

> rownames(m2) <- c("R1", "R2", "R3", "R4", "R5")

Error in `rownames<-`(`*tmp*`, value = c("R1", "R2", "R3", "R4", "R5")) : 

  'dimnames'의 길이 [1]가 배열의 크기와 같지 않습니다

> 

x <- list(id = 10,

          name = "Samuel",

          phone = "0101111123"

          )

x

json <- toJSON( x )

json

[1] "{\"id\":10,\"name\":\"Samuel\",\"phone\":\"0101111123\"}"

x <- list("id" = 10,

          "name" = "Samuel",

          "phone" = "0101111123"

          )

x

json <- toJSON( x )

json

[1] "{\"id\":10,\"name\":\"Samuel\",\"phone\":\"0101111123\"}"

> x <- list("id" : 10,

+           name = "Samuel",

+           phone = "0101111123"

+           )

Error in "id":10 : 인자의 값이 NA/NaN 입니다.

추가정보: 경고메시지(들): 

강제형변환에 의해 생성된 NA 입니다