用R快速搭建配置web后台

在日常的数据工作中,常会碰到需要上传配置数据的情况,比如字典表、指定特定的用户或商品等。若能快速地做出相应的配置后台,只需在浏览器上就能上传数据,既方便自己,更重要的是还能够开放给需要的业务人员自己去管理。

这里分享一个用R快速搭建配置后台的方式,借助R的shiny包,能方便的做出这个web应用。

这个简单的配置管理后台具有两个模块:
1、查询现有的配置列表
2、上传更新配置列表

OK,下面开始coding。

首先,载入用到的包。这里使用xlsx上传数据,因为对于业务人员来说excel更通用,远端数据库用的是MySQL。这里你完全可以根据自己的需要修改。

library(shiny)
library(xlsx)
library(RMySQL)

接着,进行必要的信息配置。首先,在数据库中新建表,并定义字段,这是用来存储配置数据的。

yourtable <- "tmp_peizhi_test_yueshi"  #此处修改为对应的表名

# 配置数据库连续信息
host <- "xxxx"
user <- "yueshi"
password <- "VcXDBcGEC1aI"
port <- 3305
dbname <- "test"

然后,开始进行shiny的部分,shiny的代码包括ui和server两个主模块。

ui采用navbarPage的布局,分别建立两个tabPanel,对应"现有配置列表"和"上传配置"。为了保证上传的数据符合规范,这里设计提供上传模板,让用户下载模板后,按模板上传数据即可。在成功上传后,会提示上传成功状态,并说明数据位置,同时在右侧展示新上传的配置数据。

以上提到的这些,在ui上的代码其实很简短,如下。

# ui----------------------------------
ui <- shinyUI(navbarPage(
"配置管理",
tabPanel(
"现有配置列表",
dataTableOutput("t1")
),
tabPanel("下载及上传配置", sidebarLayout(
sidebarPanel(
downloadButton("downloadData",
"下载数据及模板"),
br(),
br(),
fileInput("file1",
"按模板上传xlsx文件", accept = c(".xlsx")),
p("覆盖更新,请全量上传"),
verbatimTextOutput("suss")
),
mainPanel(tableOutput("content"))
))
))

server上的代码看起来稍微多一些,主要是数据库的连接关闭部分,但实际上依然只是用到几个固定的函数。

# server----------------------------
server <- shinyServer(function(input, output) {
# 数据库查询
con <- dbConnect(
drv = MySQL(),
host = host,
user = user,
password = password,
port = port,
dbname = dbname
)
dbSendQuery(con, "set names utf8")
t <- dbGetQuery(con, paste("select * from",yourtable))
dbDisconnect(con)

# 显示查询结果
output$t1 <- renderDataTable(t)

# 下载模板
output$downloadData <- downloadHandler(
filename = "dl.xlsx",
content = function(file) {
write.xlsx(t,file,row.names = F,showNA=F)
}
)

# 显示上传数据
output$content <- renderTable({
inFile <- input$file1
if (is.null(inFile))
return(NULL)
read.xlsx(inFile$datapath,1)
})

# 更新数据库表
output$suss <- renderText({
inFile <- input$file1
if (is.null(inFile))
return(NULL)
t_new <- read.xlsx(inFile$datapath,1)
con <- dbConnect(
drv = MySQL(),
host = host,
user = user,
password = password,
port = port,
dbname = dbname
)
dbSendQuery(con, "set names utf8")
dbWriteTable(
con,
name = yourtable,
t_new,
# 可选,定义字段类型
# field.types=list(source_mark='varchar(255)',username='varchar(255)',phone='bigint'),
overwrite = T,  # 覆盖模式
row.names = F
)
dbDisconnect(con)
print(paste0("更新成功,查询请刷新页面。表:",yourtable))
})
})

最后,因为我是将ui和server集中在一个脚本中,所以需要配置shinyApp。

shinyApp(ui,server)

以上就是coding的部分,之后可以重复使用,只需3个步骤:
1、在mysql的xxxx.test库(根据实际情况)里新建表,并定义字段
2、将此脚本中的yourtable修改为你自己的表名
3、脚本上传到shinyserver的指定目录(需服务器操作)

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注