小编sko*_*maz的帖子

我正在尝试使用DT包为我的闪亮应用程序创建响应数据表.我想提前隐藏某些列.例如:

library("shiny")
library("DT")
shinyApp(
  ui = fluidPage(DT::dataTableOutput('tbl')),
  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      iris,extensions="Responsive"
    )
  }
)

这个输出给了我5列.当我缩小页面时,它只隐藏列.但是,我想提前隐藏最后3列,我只想每次看到前两列.有没有办法做到这一点？

更新:

示例输出

我keras在R中使用包来训练深度学习模型.我的数据集非常不平衡.因此,我想class_weight在fit函数中设置参数.这是我用于模型的fit函数及其参数

history <- model %>% fit(
  trainData, trainClass, 
  epochs = 5, batch_size = 1000, 
  class_weight = ????,
  validation_split = 0.2
)

在python我可以设置class_weight如下:

class_weight={0:1, 1:30}

但我不知道如何在R中执行此操作.在R的帮助菜单中,它描述class_weight如下:

可选的命名列表映射索引(整数)到权重(浮点数),以在训练期间应用于此类的样本的模型损失.这可以用来告诉模型"更多地关注"来自代表性不足的类的样本.

有什么想法或建议吗？