R parsing string

Question

Я сделал запрос с помощью RCurls и дал мне токен, который мне нужен. Ответ для запроса заключается в следующем:

r<-POST(url,body = data) 
content(r) 
"{\"token\" : \"WiKuxCc2VboCLBc_MbtKrKtDkJnDSntrGjYrazbgs1FRX_BAj-p2gadILBNhk9JBti0m6o_i7DYaqf4R4i2xPh1TedYWpCrINShiFrB7xabbv8zT-8LCBTUau14HPZzv\",\"expires\" : 1425681647918,\"ssl\" : false}" 

Как я могу разобрать эту строку, которую я получил от content(r) получить только токен?

Заранее спасибо

Answer 1

Это формат JSON:

library(rjson) 
json <- "{\"token\" : \"WiKuxCc2VboCLBc_MbtKrKtDkJnDSntrGjYrazbgs1FRX_BAj-p2gadILBNhk9JBti0m6o_i7DYaqf4R4i2xPh1TedYWpCrINShiFrB7xabbv8zT-8LCBTUau14HPZzv\",\"expires\" : 1425681647918,\"ssl\" : false}" 
x <- fromJSON(json) 
x$token 
[1] "WiKuxCc2VboCLBc_MbtKrKtDkJnDSntrGjYrazbgs1FRX_BAj-p2gadILBNhk9JBti0m6o_i7DYaqf4R4i2xPh1TedYWpCrINShiFrB7xabbv8zT-8LCBTUau14HPZzv"