小编ash*_*kul的帖子

我正在尝试使用gridExtra包格式化表.gridExtra我的包是2.0和R版本是3.2.1

我在stackoverflow上找到关于格式化的答案,建议的选项似乎只适用于旧版本的软件包.例如,

grid.table(data, h.even.alpha = 1, h.odd.alpha = 0, 
           v.even.alpha = 1, v.odd.alpha = 1, 
           gpar.corefill, gpar.coretext) 

所有这些选项在最新版本中显示为"未使用的参数".

进一步搜索,我发现在新的gridExtra包中,格式化可能在主题内定义,例如 -

tt <- ttheme_default(core=list(fg_params=list(hjust=1, x=0.95)), 
                     colhead=list(fg_params=list(col="brown"))

然后做

grid.table(data, theme=tt). 

我找不到的是如何定义主题中的这些选项以及现在可以完成旧版本中可能的所有格式化.

特别是,我希望做到 -

1. 列的左对齐
2. big.marks的逗号(10000为10,000)
3. 偶数行和奇数行的不同行颜色
4. 列标题颜色
5. 不显示行名称(类似于row.names = FALSE)

在我的Shiny应用程序中,我试图包含显示或隐藏操作按钮的逻辑,具体取决于是否定义了ui.R中的另一个用户输入.由于应用程序中的一些其他复杂性,我无法使用uiOutput/renderUI功能来执行此操作.

我的方法是为输入创建一个观察者,然后使用CSS标记显示或隐藏操作按钮.我不知道CSS因此而斗争.

这是我申请中的ui表格 -

现在,我有一个反应函数locationSpecified,它返回输入位置是否为空,基于此我必须显示或隐藏"运行"按钮.

这是我在ui.r中添加"RUN"按钮的方法...

fluidRow(column(6, align="center", offset = 3, actionButton("action", "RUN")))

这是我在server.R尝试(但显然不工作)...

  observe({
    if(locationSpecified() == 1)
      tags$head(tags$style(type="button/css", ".btn {display: inline-block}"))
    if(locationSpecified() == 0)
      tags$head(tags$style(type="button/css", ".btn {display: none}"))
  })

我希望解决这个问题并不复杂,如果你能告诉我如何让它发挥作用,我将不胜感激.

提前致谢,

阿希什