Hi,
I again had to guess what exactly it is you want, but based on the piece of code and your description I came up with this:
library(shiny)
library(DT)
ui <- fluidPage(
tabPanel('Evidence Finder in Background Text',
selectizeInput("Words1",
label="Important Words - Dictionary",
choices= TRUE,
multiple = TRUE,
options = list(maxOptions = 20000)),
uiOutput("dynamicCheckboxes"),
DT::dataTableOutput("table2")
)
)
server <- function(input, output, session) {
dfcase = reactiveVal(data.frame(x = 1:10, y = LETTERS[1:10]))
output$table2 <- DT::renderDataTable(server = FALSE,{
dfcase_bckg = as.data.frame(dfcase())
DT::datatable(dfcase_bckg,
rownames = FALSE,
escape = TRUE,
class = 'cell-border stripe',
selection = "single",
extensions = 'Buttons',
)
}
)
output$dynamicCheckboxes= renderUI({
#Use dfcase()$y if you wnat to display values from within a column
checkboxGroupInput("checkboxes2", "Make choice", colnames(dfcase()), inline = T)
})
}
shinyApp(ui, server)
If this is not what you are looking for, please describe in more detail what you like, and create a sample with a working dummy dataset.
Good luck,
PJ