R 프로젝트 반짝이 동적 목록 전송 문제

Question

selectInput에 "1"및 "2"가 아닌 "Option1"및 "Option2"가 표시되기를 원합니다.

server.R

library(shiny) 
shinyServer(function(input, output) { 

## Uncomment one of the below options (single #) 

    ## This option works but the data.frame only has 1 level, mine has 20 levels 
    #my_list <- as.character(c("Option1","Option2")) 

    ## This option does not work and is as close as I can get to recreating my error 
    #my_list <- data.frame(c("Option1","Option2")) 

    ## This option does not work as ds has Factor w/ 20 levels, 20 obs. of 1 variable 
    #ds <- getData() 
    #ds <- data.frame(ds) 
    #my_list <- as.character(c(ds)) 


    output$my_list_select <- renderUI({ 
    selectInput(inputId = "select_input1", 
       label = h6("My List"), 
       choice = (my_list), 
       selected = 2) 
    }) 
}) 

ui.R

library(shiny) 
shinyUI(
    fluidPage(
    mainPanel(
     fluidRow(  
     column(4, 
       uiOutput("my_list_select") 
     ))))) 

에디션 : 그것은 가능한 한 재현 할 수 있도록 내가 위 다시 한 agstudy의 제안에 (I는 MYSQL이 로컬 데이터베이스에서 실행중인 쿼리는 getData()이므로 재현 할 수있는 대상은 제한적입니다.

감사합니다.

Answer 1

용액은 my_list <- as.vector(ds$symbol)이었다.

당신의 도움에 대한 Extract Column from data.frame as a Vector

많은 많은 감사에 대한 답변 덕분에 발견.