updateSelectInput modifies the format of selectInput box in Shiny - r

Question

I have a selectInput inside of a datatable that gets its value updated by a button in another column of the table. I have modified the original size of the box to make the rows smaller, but when updating the value with the updateSelectInput function, it resizes the box outside the boundaries of the row. Does anyone know why the original styling is being lost when updating the value of the box or how to set the formatting with updateSelectInput (maybe updateSelectizeInput using Options)?
Additionally, the functionality only works if I have the "test" selectInput box included in the code even though it actually does nothing functionally. Any help is greatly appreciated!
enlarged selectInput boxes
library(shiny)
library(DT)
library(data.table)
# ui ----
ui <- fluidPage(
sidebarLayout(
sidebarPanel(width = 2,
selectInput("test","test",choices = c(1,2)),
actionButton("refresh","Run Report")
),
mainPanel(
tags$style(type='text/css', ".selectize-input { font-size: 13px; line-height: 10px;}
.selectize-dropdown { font-size: 13px; line-height: 13px; }
.form-group, .selectize-control {margin-top:-10px;margin-bottom:-5px;max-height: 100px !important;}
.box-body {padding-top: 1px;padding-bottom: 1px;}"
)
,dataTableOutput('currentData')
)
)
)
# server ----
server <- function(input, output, session) {
data <- reactiveValues()
counter <<- 1
rawData <- eventReactive(input$refresh,{
rawData <- data.table(testID = c(1),comment = "test")
rawData <- rbind(rawData,data.table(testID = c(2,3),comment = " "))
list(rawData)
})
preppedData <- reactive({
outputData <- rawData()[[1]]
for (i in 1:nrow(outputData)) {
outputData$comments[i] <- as.character(selectInput(paste0("sel",i,"_",counter),"",selected = outputData$comment[i],choices = c(" ","test","other comment"),width = "350px"))
}
data$Data <- outputData
counter <<- counter + 1
list(outputData)
})
output$currentData = DT::renderDataTable({
outputData <- preppedData()[[1]]
outputData <- outputData[,fillCommentFromAbove := (buttonInput(
FUN = actionButton,
len = nrow(outputData),
id = 'button_',
label = "Fill Comment From Above",
style='margin-top:-5px;margin-bottom:-5px; padding:1px; font-size:100%',
onclick = 'Shiny.onInputChange(\"commentFiller\", this.id)'
))]
datatable(outputData,escape = F,
callback = JS("table.rows().every(function(i, tab, row) {
var $this = $(this.node());
$this.attr('id', this.data()[0]);
$this.addClass('shiny-input-container');
});
Shiny.unbindAll(table.table().node());
Shiny.bindAll(table.table().node());"
)
)
}, server = F #this is important for making comment saving functionality work
)
observeEvent(input$commentFiller, {
outputData <- preppedData()[[1]]
selectedRow <- as.numeric(strsplit(input$commentFiller, "_")[[1]][2])
currentRow <- outputData[selectedRow,]
success <- FALSE
i <- 1
inputToUpdate <- NA
while (!success) {
priorRow <- outputData[selectedRow-i,]
currentRow <- outputData[selectedRow-i+1,]
currentRowResult <- regmatches(merge(currentRow,data$Data)$comments, regexec("sel\\s*(.*?)\\s*_", merge(currentRow,data$Data)$comments))[[1]][2]
inputToUpdate <- na.omit(c(inputToUpdate,paste0("sel",currentRowResult,"_")))
result <- regmatches(merge(priorRow,data$Data)$comments, regexec("sel\\s*(.*?)\\s*_", merge(priorRow,data$Data)$comments))[[1]][2]
value <- input[[paste0("sel",result,"_",counter-1)]]
i <- i+1
success <- value != ' '
}
rowsToUpdate <- outputData[(selectedRow-(i-2)):selectedRow,]
for(i in inputToUpdate){
updateSelectInput(session = session,inputId = paste0(i,counter-1),selected = value)
}
})
buttonInput <- function(FUN, len, id, ...) {
inputs <- character(len)
for (i in seq_len(len)) {
inputs[i] <- as.character(FUN(paste0(id, i), ...))
}
inputs
}
}
# Run the app ----
shinyApp(ui = ui, server = server)