これは数年遅れており、OPの要求に応じて「updateSelectizeinput()」を使用しないため、これで問題が完全に解決されるとは思わないことに注意してください。さらに、選択入力を正しく処理してはいけません常に 1 つのコラムが示しているように、手始めに探している人のために、以下に例を示します。
library(shiny)
library(rhandsontable)
ui <- fluidPage(
selectInput("Select", "Select", names(mtcars), multiple = T, selected = names(mtcars)),
rHandsontableOutput("cars")
)
server <- function(input, output, session) {
DF<-reactiveValues(DF = mtcars, Select = NULL)
observeEvent(input$Select,{
DF$Select <- input$Select
})
output$cars<-renderRHandsontable({
rhandsontable(DF$DF, rowHeaders = NULL)%>%
hot_cols(colWidths = ifelse(names(DF$DF) %in% DF$Select == T, 150, 0.1))
})
}
shinyApp(ui, server)
列幅として 0.1 を使用して列を効果的に非表示にし、元のデータ フレームをそのままにします。