如何用R语言控制8 路智能分体远程电源控制箱

2022-07-27 发布浏览：167 次

本文介绍了如何用 R 对接智能分体控制箱|8路的方法：可以通过接口实现8路独立线路控制、内部预装并线免走线安装、单路负载25A/5000W控制、成品箱即装即用安装控制、远程指令开关控制、定时自动启停控制、联动场景逻辑控制、负载状态反馈控制、分路权限管理控制、联动继电器模块扩展控制、多线路集中通断控制、多达8路独立线路控制、控制8条线路通断、远程控制8路线路、控制8路交直流输出、8路设备集中控制、8路多通道独立控制、定时任务启停控制、自定义场景联动控制、线路状态反馈控制、设备运行状态监控、远程参数配置管理、设备回路状态查询、多设备联动控制、过流保护自动断电、分组控制模式设置、远程批量开关控制、场景模式一键切换、设备故障告警通知。

智能分体控制箱|8路

无需走线安装，成品装箱出厂，内部已装配并走线，到手即用

采用防水防尘ABS塑料配电箱，带底板安装板、有锁扣

标配智能分体控制器，可独立控制24条线路

继电器模块8/12/16/20/24路可选，按需配置，并方便后期扩展

单路负载达到25A / 5000W，满足绝大部分的照明或电器线路控制需求

更多...

适用场景

共享台球厅多线路集中控制、共享自习室灯光电源控制、运动场馆多路设备控制、共享棋牌室多设备集中管理、共享茶室电器线路控制、无人值守设备机房电源管理、门店照明系统集中控制、智能家居多路电器控制、办公设备电源集中管理、自助设备多线路控制、充电桩多路输出控制、大功率设备集中控制、智能化改造、自动售货柜控制、灯光控制、照明控制、便利店灯光控制、店铺招牌控制、展柜设备控制、仓储照明控制、楼宇公共照明、弱电间设备管理、民宿多设备联动、共享设备柜控制、自助储物柜控制、社区智能设施控制、机房设备控制、餐饮后厨设备控制、无人售货机控制、配电柜智能改造、工业自动化设备控制、产线设备控制、车间设备远程管理、共享自习室灯光设备控制、共享棋牌室设备电源控制、共享台球室灯光空调控制、共享茶室设备电源管理、自助洗车设备线路控制、快递柜设备控制、校园公共照明控制、停车场灯光设备控制、商场展柜电源控制、酒店客房设备集中控制、实验室多设备联动控制、教研实训设备远程管理、创客项目设备电源控制、写字楼公共区域照明控制、养老社区公共设备控制、仓储物流设备电源管理、景观灯光远程控制、户外亮化工程控制中

支持命令

线路1	power1
线路2	power2
线路3	power3
线路4	power4
线路5	power5
线路6	power6
线路7	power7
线路8	power8
线路9	power9
线路10	power10
线路11	power11
线路12	power12
线路13	power13
线路14	power14
线路15	power15
线路16	power16
线路17	power17
线路18	power18
线路19	power19
线路20	power20
线路21	power21
线路22	power22
线路23	power23
线路24	power24
批量控制	batch
先通后断	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的取值，请参考文档。