怎样用R语言对接智能灯座

2025-05-31 发布浏览：371 次

本文介绍了如何用 R 对接智能灯座的方法：可以通过接口实现。

智能灯座

更多...

支持命令

线路	power
先通后断	point
先断后通	reset

产品手册

版本	对应产品手册

HTTP接口控制以设备控制（向设备下发命令）为例

# First you need to prepare the following values
# 1. AppID (in your console development settings)
# 2. AppSecret (in your console development settings)
# 3. ts (timestamp of the current time, seconds)
# 4. YourSign = md5(md5(AppSecret)ts);(md5 is an encryption method, AppSecret is the AppSecret prepared above, ts is the timestamp prepared above, concatenate the string after the AppSecret after md5 encryption)
# In simple terms, the signature is md5(md5(your developer password)concatenate the above ts timestamp value); ts is the timestamp of the current timestamp; that is, to perform one MD5 on the developer password (AppSecret), then concatenate the timestamp, and then perform one MD5 on the entire concatenated string
# Core request address: api.thingboot.com/AppID/device/control/?sign=YourSign&&ts=ts;
# Request needs to pass two parameters device and order:
# device[string]: unique device ID, can pass multiple [separated by ,], can be viewed in the console, or pulled through the interface
# order[json string]: the command to be issued, for example:
# {"power":1}, usually to connect the circuit of the switch
# {"power3":0}, usually to close the third line of the switch or controller
# {"play:gbk:16":"hello, welcome to visit"}, let the voice speaker report the specified content
# The same type of product, the command is the same, different product types of commands, please view the product manual page of each product
# Note: you must replace the formal AppID and AppSecret with real-time timestamp calculation of the signature, the request must have device device ID and order command

#确保安装了必要的包：
#install.packages("httr")
#install.packages("digest")

library(httr)
library(digest)

# 配置参数
app_id <- "qtyVWcgeMq"  # 替换为实际的 AppID
app_secret <- "开发者密码"  # 替换为实际的 AppSecret
device <- "1878"  # 替换为实际的设备 ID
order <- '{"power1":1}'  # 替换为实际的命令

# 计算时间戳
ts <- as.numeric(Sys.time()) * 1000  # 转换为毫秒

# 计算 MD5 哈希值
md5_hash <- digest(app_secret, algo = "md5", serialize = FALSE)

# 计算 sign
sign_input <- paste0(md5_hash, ts)
sign <- digest(sign_input, algo = "md5", serialize = FALSE)

# 构造请求 URL
url <- sprintf("https://api.thingboot.com/%s/device/control/?sign=%s&ts=%d", app_id, sign, ts)

# 创建请求体
body <- list(
  device = device,
  order = order
)

# 发送请求
response <- POST(
  url,
  body = body,
  encode = "multipart",
  add_headers(
    `Accept` = "*/*",
    `Host` = "api.thingboot.com",
    `Connection` = "keep-alive"
  )
)

# 输出响应
if (http_status(response)$category == "Success") {
  print(content(response, "text"))
} else {
  print(http_status(response)$message)
}

说明：{AppID}为您的应用ID（由平台生成），免费注册登录后，可在控制台查看；sign和ts的取值，请参考文档。

怎样用R语言对接智能灯座

智能灯座

支持命令

产品手册

HTTP接口控制以设备控制（向设备下发命令）为例

文章：

怎样用R语言对接智能灯座

相关技术文章：

怎么用R语言控制60W API 接口语音音柱

怎么用R语言控制智能WiFi通断器电路板模块

怎样用R语言对接智能插座10A 86型

怎样用R语言控制5W 壁挂远程 TTS 语音音箱

怎样用R语言对接PDU插排(8位)

Please contact me

智能灯座

支持命令

产品手册

HTTP接口控制 以设备控制（向设备下发命令）为例

文章：

怎样用R语言对接智能灯座

相关技术文章：

怎么用R语言控制60W API 接口语音音柱

怎么用R语言控制智能WiFi通断器电路板模块

怎样用R语言对接智能插座10A 86型

怎样用R语言控制5W 壁挂远程 TTS 语音音箱

怎样用R语言对接PDU插排(8位)

HTTP接口控制以设备控制（向设备下发命令）为例