R/module.R

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

#' 获取模块 数据
#'
#' @param conn 连接
#' @param FappId 程序ID
#' @param Fpermissions 角色
#' @param Ftype 类型
#'
#' @return 返回值
#' @export
#'
#' @examples
#' module_getData()
module_getData <- function(conn=tsda::conn_rds('rdbe'),FappId ='cpdms',Fpermissions ='admin',Ftype ='module') {
  sql <- paste0("SELECT FparentId as sytem_id,Fid as module_id
  FROM [rdbe].[dbo].[t_md_objectRight]
  where FappId ='",FappId,"' and Fpermissions ='",Fpermissions,"'
  and Ftype ='",Ftype,"'")
  data =tsda::sql_select(conn,sql)
  return(data)
  
}

#' 加载UI文件
#'
#' @param module_id 模块名
#'
#' @return 返回值
#' @export
#'
#' @examples
#' module_ui()
module_ui <- function(module_id='A01'){
  ui_file = paste0(module_id,"_ui.R")
  res = source(file = ui_file,encoding = 'utf-8')$value
  return(res)
  
}


#' 加载UI文件
#'
#' @param module_id 模块名
#'
#' @return 返回值
#' @export
#'
#' @examples
#' test_ui()
module_title <- function(module_id='A01'){
  
  res = paste0(module_id," test page!")
  return(res)
  
}



#' 加载服务器逻辑文件
#'
#' @param input 输入
#' @param output 输出
#' @param session 会话
#' @param module_id 模块代码
#' @param app_id 用户ID
#' @param conn_cfg 连接设置
#'
#' @return 返回回
#' @export
#'
#' @examples
#' module_server()
module_server <- function(input,output,session,conn_cfg,app_id,module_id='A01') {
  file_name =  paste0(module_id,"_server.R")
  source(file_name,encoding = 'utf-8',local = TRUE)
  
  
}


#' 加载服务器逻辑文件
#'
#' @param input 输入
#' @param output 输出
#' @param session 会话
#' @param module_id 模块代码
#' @param dms_token 口令
#' @param app_id 用户ID
#'
#' @return 返回值
#' @export
#'
#' @examples
#' module_server2()
module_server2 <- function(input,output,session,dms_token,app_id,module_id='A01') {
  file_name =  paste0(module_id,"_server.R")
  source(file_name,encoding = 'utf-8',local = TRUE)
  
  
}