R/appTemplateV2.R

In takewiki/tsui: user interface elements from shiny,H5,css,js in takewiki solutions

#' 处理APP菜单单项设置
#'
#' @param itemConfig 单项设置
#'
#' @return 返回值
#' @import shiny
#' @import shinydashboard
#' @export
#'
#' @examples
#' getMenuItem()
getMenuItem <- function(itemConfig){
  if(itemConfig$Fshow){
    res <- menuItem(itemConfig$Fname,tabName = itemConfig$Fid,icon=icon(itemConfig$Ficon))
  }else{
    res <- NULL
  }
  return(res)
}

#' 构建一个菜单
#'
#' @param config 配置文件
#'
#' @return 返回一个菜单项
#' @export
#'
#' @examples
#' getSideBarMenu()
getSideBarMenu <- function(config){
  item_list <-lapply(config, getMenuItem)
  names(item_list) <-NULL
  # print(item_list)
  res <- sidebarMenu(.list = item_list)
  return(res)
}


#' 格式化配置文件
#'
#' @param data 数据框的配置文件
#'
#' @return 返回值
#' @export
#'
#' @examples
#' config_formatter()
#' # config <- list(
#'#           row = list(
#'#             Fshow =TRUE,
#'#             Fname='第一行',
#'#             Fid='row',
#'#             Ficon='clock'
#'#           ),
#'#           column =list(
#'#             Fshow=FALSE,
#'#             Fname='测试一下',
#'#             Fid='column',
#'#             Ficon='history'
#'#           ),
#'#           book = list(
#'#             Fshow=TRUE,
#'#             Fname='第三项',
#'#             Fid='book',
#'#             Ficon='plane'
#'#           ),
#'#           series=list(
#'#             Fshow=TRUE,
#'#             Fname='第四项',
#'#             Fid='series',
#'#             Ficon='car-side'
#'#           ),
#'#           majority=list(
#'#             Fshow=FALSE,
#'#             Fname='第五项',
#'#             Fid='majority',
#'#             Ficon='hourglass'
#'#           
#'#           ),
#'#           tutor=list(
#'#             Fshow=TRUE,
#'#             Fname='第六项',
#'#             Fid='tutor',
#'#             Ficon='user-times'
#'#           )
#'#            
#'# )
#'data_config <- data.frame(Fshow=c(TRUE,TRUE,TRUE,TRUE,TRUE,TRUE),
#'Fname=LETTERS[1:6],
#'Fid = c('row','column','book','series','majority','tutor'),
#'Ficon=c('clock','history','plane','car-side','hourglass','user-times'),
#'stringsAsFactors = F)
#'
#'格式化为列表
#'
#'config <- config_formatter(data_config)
#'
config_formatter <- function(data) {
  data_split <- split(data,data$Fid)
  res <- lapply(data$Fid, function(id){
    as.list(data_split[[id]])
  })
  return(res)
  
}


#' 获取用户登录信息
#'
#' @param conn 数据库信息
#' @param app_id 指定APP
#'
#' @return 返回值
#' @export
#'
#' @examples
#' getUsers()
getUsers <- function(conn=conn_rds('rdbe'),app_id='appTpl') {
 # conn <- conn_rds('rdbe')
  sql <-paste0("select Fuser,Fpassword,Fpermissions,Fname from t_md_userRight
where  Fdeleted = 0 and  FappId ='",app_id,"'")
  res <- tsda::sql_select(conn,sql)
  return(res)
  
}


#' 根据角色与数据库设置边栏
#'
#' @param conn 数据库连接
#' @param app_id 程序ID
#' @param permission 角色
#'
#' @return 返回值
#' @export
#'
#' @examples
#' setSideBarMenu()
setSideBarMenu <- function(conn=conn_rds('rdbe'),app_id='appTpl',permission='admin'){
  sql <-paste0("select Fshow,Fname,Fid,Ficon from t_md_rolePermission
where Fpermissions ='",permission,"' and FappId='",app_id,"'")  
  res <- tsda::sql_select(conn,sql)
  res$Fshow <- as.logical(as.integer(res$Fshow))
  config <- config_formatter(res)
  sidebarMenu <- getSideBarMenu(config)
  return(sidebarMenu)
}




#' 针对密码进行加密处理
#'
#' @param x 原始数据
#'
#' @return 返回值
#' @import digest
#' @export
#'
#' @examples
#' password_md5
password_md5 <- function(x) {
  res <- sapply(x, digest, "md5")
  names(res) <- NULL
  return(res)
  
}

#' 对比两个密码
#'
#' @param newPassword 新密码
#' @param repPassword 重复密码
#'
#' @return 返回是否相等
#' @export
#'
#' @examples
#' password_equal()
password_equal <- function(newPassword,repPassword) {
  res <- newPassword[1] == repPassword[1]
  return(res)
  
}


#' check the orginal password
#'
#' @param fappId app
#' @param fuser user
#' @param fpassword pwd
#' @param conn  添加连接
#'
#' @return return value
#' @import tsda
#' @export
#'
#' @examples
#' password_checkOriginal()
password_checkOriginal <- function(fappId ='appTpl',fuser,fpassword,conn = conn_rds('rdbe')   ){
 #conn <- conn_rds('rdbe')  
 sql <-paste0(" select fuser  from  t_md_userRight
  where fappId ='",fappId,"' and fuser ='",fuser,"'  and fpassword ='",fpassword,"' ")
 data <- tsda::sql_select(conn,sql)
 ncount <- nrow(data)
 if(ncount >0){
   res <- TRUE
 }else{
   res <- FALSE
 }
 return(res)
}


#' 数据库设置新密码
#'
#' @param fappId 程序
#' @param fuser 用户
#' @param fpassword 密码
#' @param conn 连接
#'
#' @return 返回值
#' @export
#'
#' @examples
#' password_setNew()
password_setNew <- function(fappId ='appTpl',fuser,fpassword,conn = conn_rds('rdbe')){
  
  #conn <- conn_rds('rdbe')  
  sql <- paste0("update  a  set fpassword ='",fpassword,"'  from  t_md_userRight a 
  where fappId ='",fappId,"' and fuser ='",fuser,"'")
  tsda::sql_update(conn,sql)
}