가중치 테이블 출력 Shiny

Question

데이터 세트에서 관심있는 변수에 대해 svytable을 사용하여 가중치 테이블을 생성하는 반짝이는 앱을 만들려고합니다. 그러나, 나는 "개체 '입력'찾을 수 없습니다"오류를 반환, 어떤 출력을하지 않습니다. 내 문제를 복제하는 코드는 다음과 같습니다.

df <- data.frame(col1 = rnorm(20, 0, 1), col2 = rnorm(20, 2, 2), w = rnorm(20, 1, .2)) 
df.w <- svydesign(id = ~1, data = df, weights = ~w) 

ui <- fluidPage(
     selectInput("v1", "Choose column", colnames(df), selected = "col1"), 
     verbatimTextOutput("table") 
) 
server <- shinyServer(function(input,output){ 
    output$table <- renderPrint({ 
    svytable(~input$v1, df.w) 
    }) 
}) 
shinyApp(ui, server) 

Answer 1

당신은 input$v1 이후이 오류는 문자열받을 만 svytable는 formula을 기대하고있다. 문자열을 수식으로 변환 할 수 있습니다. as.formula

library(shiny) 
library(survey) 

df <- data.frame(col1 = rnorm(20, 0, 1), col2 = rnorm(20, 2, 2), w = rnorm(20, 1, .2)) 
df.w <- svydesign(id = ~1, data = df, weights = ~w) 

ui <- fluidPage(
    selectInput("v1", "Choose column", colnames(df), selected = "col1"), 
    verbatimTextOutput("table") 
) 

server <- function(input, output){ 
    output$table <- renderPrint({ 
    myformula <- as.formula(paste0("~", input$v1)) 
    svytable(myformula, df.w) 
    }) 
} 

shinyApp(ui, server)