怎么用R语言控制3 路智能墙壁开关

2026-05-23 发布浏览：124 次

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

智能触摸墙壁开关3路

更多...

适用场景

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

支持命令

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