R/layout.R

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

#' 进行2列处理
#'
#' @param x 第一个元素
#' @param y 第2个元素
#'
#' @return 返回值
#' @import shiny
#' @export
#'
#' @examples
#' layout_2C()
layout_2C <- function(x=tsui::mdl_text2(id = 'txtscheduleDetail_FPrdNumber_start',label = '开始产品代码',value = '802685'),
                    y=tsui::mdl_text2(id = 'txtscheduleDetail_FPrdNumber_end',label = '结束产品代码',value = '802685')) {
  
  res = shiny::fluidRow(column(6,x),
                  column(6,y))
  return(res)
  
}

#' 进行3列处理
#'
#' @param x 第一个元素
#' @param y 第2个元素
#' @param z 第3个元素
#'
#' @return 返回值
#' @import shiny
#' @export
#'
#' @examples
#' layout_3C()
layout_3C <- function(x,
                      y,
                      z) {
  
  res = shiny::fluidRow(column(4,x),
                        column(4,y),
                        column(4,z))
  return(res)
  
}
#' 进行4列处理
#'
#' @param x 第一个元素
#' @param y 第2个元素
#' @param z 第3个
#' @param i 第4个
#'
#' @return 返回值
#' @import shiny
#' @export
#'
#' @examples
#' layout_4C()
layout_4C <- function(x,
                      y,
                      z,
                      i) {
  
  
  res = shiny::fluidRow(column(3,x),
                        column(3,y),
                        column(3,z),
                        column(3,i)
                        )
  return(res)
  
}