怎样用R语言对接3路墙壁智能照明控制开关

2022-06-13 发布浏览：182 次

本文介绍了如何用 R 对接智能墙壁开关3路的方法：可以通过接口实现3路独立回路远程控制、多回路照明集中管理、远程指令批量开关控制、定时任务集中启停控制、自定义场景联动控制、线路状态集中反馈控制、设备运行状态监控、多设备联动控制、三路回路状态查询、远程参数配置管理、3路独立线路控制、三路照明或设备控制、远程控制照明与设备、定时开关照明设备、设备联动控制、远程打开关闭照明与设备、设备状态监测与联动、客房场景化控制、物理按键控制照明、远程开关状态查询、场景联动照明控制、故障告警通知、延时通断控制、设备分组控制、自定义联动逻辑控制、线路状态反馈控制、本地按键与远程双控制。

智能墙壁开关3路

标准86型底盒安装，可直接平行替换原有墙壁开关；

可独立控制3路照明或其他电器；

3路分控，均可通过HTTP接口独立远程；

支持远程定时任务，支持自定义联动操作；

可保持（锁定）开关状态，用户操作后若干秒，恢复原有状态；

更多...

适用场景

智能家居三路照明控制、共享自习室三路灯光电源控制、共享棋牌室三路设备电源管理、共享台球室三路灯光空调控制、共享茶室三路设备电源管理、酒店客房三路设备控制、写字楼办公区三路线路管理、智慧教室三路灯光设备控制、养老社区三路公共区域电源管理、实验室三路设备控制、自动化设备三路电源管理、物联网设备三路回路监控、酒店客房智能改造、民宿房间智能控制、共享茶室灯光控制、共享自习室门禁联动、办公室照明门禁控制、店铺照明设备管理、智能公寓客房控制、共享棋牌室设备控制、无人值守空间管理、弱电间设备联动、智能化改造、智能家居照明门禁联动、出租屋照明控制、小型商铺照明管理、共享自习室照明门禁控制、共享台球室灯光控制、共享麻将馆门禁照明联动、无人值守门店照明控制、自助设备照明管理、共享健身房灯光控制、共享充电站照明管理、智慧教室照明控制、培训机构教室灯光管理、图书馆自习室照明控制、创客工坊设备照明管理、学校活动室照明控制、培训教室灯光管理、餐厅包厢照明控制、便利店照明管理、银行网点照明控制、医院病房照明管理、展会现场照明控制、活动现场灯光管理、景观亮化照明控制、广告灯箱照明管理、园区公共照明控制、写字楼办公室照明管理、商场店铺照明控制、社区公共照明管理、设备机房照明控制、实验室照明管理、办公设备照明联动中

支持命令

线路1	power1
线路2	power2
线路3	power3
1路状态保持	power1
2路状态保持	power2
3路状态保持	power3
1路先通后断	point1
2路先通后断	point2
3路先通后断	point3
1路先断后通	reset1
2路先断后通	reset2
3路先断后通	reset3

产品手册

版本	对应产品手册
白色	《智能墙壁开关3路产品手册》

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的取值，请参考文档。