# NOT RUN {
# Assuming that a valid Sensibo Sky API Key was created on https://home.sensibo.com/me/api
# and added to a 'sensibo.sky' global option.
#
# options("sensibo.key" = <Your Sensibo API Key>)
## Getting the list of pods available to the user
pods.id <- sensibo.pods()
## Getting the current state of the first pod
pod.current <- sensibo.pod.states(pods.id[1], n = 1)
## Get more details of the given state (if available)
pod.state.details <- sensibo.pod.state(pods.id[1], pod.current[1])
# }
Run the code above in your browser using DataLab