RStudio - set column as selectInput values

[anon81940577]

Hi,
I have a table with the column "description" and a selectInput component. How can i set the column values from the table as the values to the selectInput?

[anon81940577]

[andresrcs]

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one for a shiny app

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

[anon81940577]

hi, the thing is that i dont know exaclty the syntax how to set the column values as the selectInput values.

I have the selectIput:

selectInput("external", NULL, "Select external agent", NULL),

I can make a connection to the database, but how can i than use the columns?

[andresrcs]

In case you are still having issues with this, here is an example of the syntax.

library(shiny)

# Dummy data simulating yours
df <- data.frame(stringsAsFactors = FALSE,
                 description = c("FER-01", "BGR-01", "ZUT-01"))

ui <- fluidPage(
    
    # Application title
    titlePanel("Test"),
    
    sidebarLayout(
        sidebarPanel(
            selectInput(inputId = "external", label =  NULL, choices = df$description)
        ),
        
        mainPanel(
            textOutput("selection")
        )
    )
)

server <- function(input, output) {
    
    output$selection <- renderText({
        paste("You have selected", input$external)
    })
    
}

# Run the application 
shinyApp(ui = ui, server = server)

[anon81940577]

one more question:

I want to select not the whole table, but just the one attributes which are external Agent (set to 1).
Do you have a clue? where can i set the clausel?

[andresrcs]

If I understand you correctly, you just have to filter the dataframe like in this example:

selectInput(inputId = "external", label =  NULL, choices = df$description[df$isExternalAgent == 1])

---

Note: If you can't provide a reproducible example, at least provide sample data for your questions on a copy/paste friendly format, the screenshots are not very useful.
You can do it very easily with datapasta package, here is a nice blog post by Mara that explains how.

reprex-ing with {datapasta} 🍝

[anon81940577]

perfect - i just like R