R/file.R

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

#' 生成文件名
#'
#' @param file_name 文件名 
#'
#' @return 返回值
#' @export
#'
#' @examples
#' file_name()
file_name <- function(file_name='测试') {
  
  res = paste0(file_name,"_",tsdo::getTime(),"_.xlsx")
  return(res)
  
}


#' 文件上传服务器
#'
#' @param file_name 文件名 
#' @param f 处理函数
#' @param token 口令
#' @param dv_id 可视化图表
#'
#' @return 返回值
#' @export
#'
#' @examples
#' file_upload()
file_upload <- function(file_name,f,token,dv_id) {
  
  if(is.null(file_name)){
    pop_notice('请选择一个文件')
    
  }else{
    data = f(token,file_name)
    run_dataTable2(id=dv_id,data= data)
    pop_notice('上传服务器成功')
    
    
    
  }
  
}


#' 文件上传服务器
#'
#' @param file_name 文件名 
#' @param f 处理函数
#' @param dv_id 可视化图表
#' @param conn 连接
#'
#' @return 返回值
#' @export
#'
#' @examples
#' file_upload()
file_upload2 <- function(file_name,f,conn,dv_id) {
  
  if(is.null(file_name)){
    pop_notice('请选择一个文件')
    
  }else{
    data = f(conn,file_name)
    run_dataTable2(id=dv_id,data= data)
    pop_notice('上传服务器成功')
    
    
    
  }
  
}