atomic vector error in R for $ symbol. Please find reproducible example below
-1
I am receiving an error when I run the last line of this code
# Load relevant packages
library("httr")
library("XML")
library("stringr")
library("ggplot2")
# Define image source
img.url = 'https://www.whitehouse.gov/sites/whitehouse.gov/files/images/first-family/44_barack_obama[1].jpg'
# Define Microsoft API URL to request data
URL.emoface = 'https://westus.api.cognitive.microsoft.com/emotion/v1.0/recognize'
# Define access key (access key is available via: https://www.microsoft.com/cognitive-services/en-us/emotion-api)
emotionKEY = 'xxx'
# Define image
mybody = list(url = img.url)
# Request data from Microsoft
faceEMO = POST(
url = URL.emoface,
content_type('application/json'), add_headers(.headers = c('Ocp-Apim-Subscription-Key' = emotionKEY)),
body = mybody,
encode = 'json'
)
# Show request results (if Status=200, request is okay)
faceEMO
# Reuqest results from face analysis
Obama = httr::content(faceEMO)[[1]]
Obama
# Define results in data frame
o<-as.data.frame(as.matrix(Obama$scores))
The error I receive after running o is
Error in Obama$scores : $ operator is invalid for atomic vectors
r debugging operators
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
add a comment |
-1
I am receiving an error when I run the last line of this code
# Load relevant packages
library("httr")
library("XML")
library("stringr")
library("ggplot2")
# Define image source
img.url = 'https://www.whitehouse.gov/sites/whitehouse.gov/files/images/first-family/44_barack_obama[1].jpg'
# Define Microsoft API URL to request data
URL.emoface = 'https://westus.api.cognitive.microsoft.com/emotion/v1.0/recognize'
# Define access key (access key is available via: https://www.microsoft.com/cognitive-services/en-us/emotion-api)
emotionKEY = 'xxx'
# Define image
mybody = list(url = img.url)
# Request data from Microsoft
faceEMO = POST(
url = URL.emoface,
content_type('application/json'), add_headers(.headers = c('Ocp-Apim-Subscription-Key' = emotionKEY)),
body = mybody,
encode = 'json'
)
# Show request results (if Status=200, request is okay)
faceEMO
# Reuqest results from face analysis
Obama = httr::content(faceEMO)[[1]]
Obama
# Define results in data frame
o<-as.data.frame(as.matrix(Obama$scores))
The error I receive after running o is
Error in Obama$scores : $ operator is invalid for atomic vectors
r debugging operators
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
add a comment |
-1
-1
-1
I am receiving an error when I run the last line of this code
# Load relevant packages
library("httr")
library("XML")
library("stringr")
library("ggplot2")
# Define image source
img.url = 'https://www.whitehouse.gov/sites/whitehouse.gov/files/images/first-family/44_barack_obama[1].jpg'
# Define Microsoft API URL to request data
URL.emoface = 'https://westus.api.cognitive.microsoft.com/emotion/v1.0/recognize'
# Define access key (access key is available via: https://www.microsoft.com/cognitive-services/en-us/emotion-api)
emotionKEY = 'xxx'
# Define image
mybody = list(url = img.url)
# Request data from Microsoft
faceEMO = POST(
url = URL.emoface,
content_type('application/json'), add_headers(.headers = c('Ocp-Apim-Subscription-Key' = emotionKEY)),
body = mybody,
encode = 'json'
)
# Show request results (if Status=200, request is okay)
faceEMO
# Reuqest results from face analysis
Obama = httr::content(faceEMO)[[1]]
Obama
# Define results in data frame
o<-as.data.frame(as.matrix(Obama$scores))
The error I receive after running o is
Error in Obama$scores : $ operator is invalid for atomic vectors
r debugging operators
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
I am receiving an error when I run the last line of this code
# Load relevant packages
library("httr")
library("XML")
library("stringr")
library("ggplot2")
# Define image source
img.url = 'https://www.whitehouse.gov/sites/whitehouse.gov/files/images/first-family/44_barack_obama[1].jpg'
# Define Microsoft API URL to request data
URL.emoface = 'https://westus.api.cognitive.microsoft.com/emotion/v1.0/recognize'
# Define access key (access key is available via: https://www.microsoft.com/cognitive-services/en-us/emotion-api)
emotionKEY = 'xxx'
# Define image
mybody = list(url = img.url)
# Request data from Microsoft
faceEMO = POST(
url = URL.emoface,
content_type('application/json'), add_headers(.headers = c('Ocp-Apim-Subscription-Key' = emotionKEY)),
body = mybody,
encode = 'json'
)
# Show request results (if Status=200, request is okay)
faceEMO
# Reuqest results from face analysis
Obama = httr::content(faceEMO)[[1]]
Obama
# Define results in data frame
o<-as.data.frame(as.matrix(Obama$scores))
The error I receive after running o is
Error in Obama$scores : $ operator is invalid for atomic vectors
r debugging operators
r debugging operators
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
edited Nov 25 '18 at 4:20
codeybanks
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
asked Nov 25 '18 at 3:43
codeybankscodeybanks
82
82
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
0
Assuming "Obama" is json content structured as the demo example on https://azure.microsoft.com/de-de/services/cognitive-services/emotion/, your could define your output dataframe like this:
# Define results in data frame
o <- data.frame(
value_face_emotion = sapply(
names(Obama[[1]]$scores)
,function(emotion_name) Obama[[1]]$scores[emotion_name][[1]]));
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53464472%2fatomic-vector-error-in-r-for-symbol-please-find-reproducible-example-below%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
0
Assuming "Obama" is json content structured as the demo example on https://azure.microsoft.com/de-de/services/cognitive-services/emotion/, your could define your output dataframe like this:
# Define results in data frame
o <- data.frame(
value_face_emotion = sapply(
names(Obama[[1]]$scores)
,function(emotion_name) Obama[[1]]$scores[emotion_name][[1]]));
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
add a comment |
0
Assuming "Obama" is json content structured as the demo example on https://azure.microsoft.com/de-de/services/cognitive-services/emotion/, your could define your output dataframe like this:
# Define results in data frame
o <- data.frame(
value_face_emotion = sapply(
names(Obama[[1]]$scores)
,function(emotion_name) Obama[[1]]$scores[emotion_name][[1]]));
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
add a comment |
0
0
0
Assuming "Obama" is json content structured as the demo example on https://azure.microsoft.com/de-de/services/cognitive-services/emotion/, your could define your output dataframe like this:
# Define results in data frame
o <- data.frame(
value_face_emotion = sapply(
names(Obama[[1]]$scores)
,function(emotion_name) Obama[[1]]$scores[emotion_name][[1]]));
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
Assuming "Obama" is json content structured as the demo example on https://azure.microsoft.com/de-de/services/cognitive-services/emotion/, your could define your output dataframe like this:
# Define results in data frame
o <- data.frame(
value_face_emotion = sapply(
names(Obama[[1]]$scores)
,function(emotion_name) Obama[[1]]$scores[emotion_name][[1]]));
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
answered Nov 25 '18 at 12:41
Franziska W.Franziska W.
14114
14114
add a comment |
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53464472%2fatomic-vector-error-in-r-for-symbol-please-find-reproducible-example-below%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
