如何解决RShiny
对于我的数据表，我具有以下ui.R文件：
tabItem(tabName = "maForwardVsspot",fluidRow(DT::dataTableOutput(outputId = "maForwardVsspottABLE"))
我的server.R看起来像这样：
output$maForwardVsspottABLE <- DT::renderDataTable({
DT::datatable(dt.FvsS,rownames = FALSE,escape = FALSE,class = 'cell-border stripe',colnames = c("Date","Spot",input$maStrategy,"Mean Difference"),options = list(pageLength = 10,autoWidth = TRUE,scrollX = TRUE,columnDefs = list(list(className = 'dt-center',targets = c(0,1,2,3),width = '200px')),initComplete = JS("function(settings,json) {","$(this.api().table().header()).css({'background-color': '#007d3c','color': '#fff'});","}")
)
)
})
这将导致出现以下数据表，其中用红色圆圈圈出的部分不适合我，因为它们应与数据表开始齐平，并且距数据表左右不远。
解决方法
这似乎可行：
tabItem(
tabName = "maForwardVsSpot",tags$div(
style = "width: fit-content;",DT::dataTableOutput(outputId = "maForwardVsSpotTABLE")
)
)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
