Question

我目前有一个使用标签$ table构建的表，并且标签$ td中有闪亮的输入元素。我面临的问题是我似乎无法更改这些元素的宽度。

我尝试修改输入函数中的width以及向td / th添加一个具有width parm的样式，但这似乎没有用。

用于建立表格的函数：

create.table = function(tables) {
  rowCount <- c(1:nrow(tables))
  htmlTbl <-
    paste(
      "tags$table(
             tags$tr(
               tags$th('Select'),
               tags$th('Confirm'),
               tags$th('Reason')
             ),"
    )
  for (val in rowCount) {
    htmlTbl <- paste(
      htmlTbl,"tags$tr(
      tags$td(checkboxInput('check",val,"', label=NULL, value=FALSE, width='25px')),
      tags$td(selectInput('conf",val,"',NULL, width='50px',
        choices = list('Approve' = 1, 'Deny' = 2),selected = NULL)),
      tags$td(selectInput('reas",val,"',NULL, width='50px',
        choices = list('Still Used' = 1, 'Not Used' = 2),selected = NULL))
    )"
    )
    if (val != length(rowCount))
      htmlTbl <- paste(htmlTbl,",")
  }

  htmlTbl <- paste(htmlTbl,")")
  htmlTbl <- eval(parse(text=htmlTbl))

  return(htmlTbl)
}

CSS文件：

table {
  font-family: arial, sans-serif;
  border-collapse: collapse;
  width: 100%;
}

td, th {
  border: 1px solid #eeeeee;
  text-align: left;
  padding: 8px;
  white-space: nowrap;
}

tr:nth-child(even) {
  background-color: #dddddd;
}

input[type='checkbox'] {
        width: 20px;
        height: 20px;
        line-height: 20px; 
}

以CheckBox为例：

电流输出： | [] ___________________ | col2 ... | col3 ...

所需的输出： | [] | col2 ... | col3 ...

更改标签内闪亮输入元素的宽度

0 个答案: