在 Shiny 应用程序的 excelR 小部件中隐藏索引列（行号）

Question

我用 R 制作了一个 Shiny 应用程序，向用户显示类似 Excel 的网格。 excelR 包是 JS 包 JSpreadsheet 的包装器。该包自动将行号放在最左边的列中。我不想要他们。

通过深入研究 JavaScript，我终于能够弄清楚如何使用 actionButton 通过发送 JS 命令来删除行号：

library(shiny)
library(excelR)
library(shinyjs)

jsCode <- "shinyjs.hideindex = function(params) {document.getElementById('table').jexcel.hideIndex();}"

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode, functions = "hideindex"),
  excelOutput("table", height = 175),
  actionButton('hide_button', 'Hide Index Column')
)

server <- function(input, output, session){
  output$table <- renderExcel({
    excelTable(data = head(iris),
               columns = data.frame(title = names(iris),
                                    type = c('numeric', 'numeric', 'numeric', 'numeric', 'text')))
    })

  onclick("hide_button", js$hideindex())

}

shinyApp(ui, server)

但我真的很想让表格在没有索引列（行号）的情况下自动呈现。我尝试使用observeEvents（以及许多其他东西）来监视input$table中的更改，但在编辑表之前似乎不会创建输入。

Answer 1

我修改了您的示例以使其更加离散，但是每次有人修改您的应用程序时它都会运行（由于 observe() 函数）。

library(shiny)
library(excelR)
library(shinyjs)

jsCode <- "shinyjs.hideindex = function(params) {document.getElementById('table').jexcel.hideIndex();}"

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode, functions = "hideindex"),
  excelOutput("table", height = 175),
  hidden(actionButton('hide_button', 'Hide Index Column')) # Hide from start 
)

server <- function(input, output, session){
  output$table <- renderExcel({
    excelTable(data = head(iris),
               columns = data.frame(title = names(iris),
                                    type = c('numeric', 'numeric', 'numeric', 'numeric', 'text')))
  })
  
  observe({ # Automatic click on it even if hidden
    click("hide_button")
  })
  onclick("hide_button", js$hideindex())  
}

shinyApp(ui, server)

最好只在应用程序启动时运行它，但我还没有解决它。