Try this:
activities <- GET(url = "http://api.fitbit.com/1/user/-/activities/date/2013-06-07.json",
config=sig)
content(activities)
That will give you the results in a list from which you can more easily extract what you are after.