R 반짝 이는 selectInput with \ r \ n

Question

엑셀 스프레드 시트에서 Shiny로 데이터를 업로드하고 있습니다.이 데이터는 \ r \ n 및 selectInput을 포함하는 colnames가있어 선택할 수 없습니다. R에 해결 방법이 있습니까?

모든 제안을 주시면 감사하겠습니다!

library(shiny) 

D = matrix(runif(400), nrow = 20) 

colnames(D) = c("PROTECT",                 
       "SAFER\r\nLines",               
       "Name",                  
       "County",                 
       "For Profit",                
       "Health\r\nInspection",              
       "Quality\r\nMeasures",              
       "Staffing",                 
       "2014\r\nCensus",               
       "Total\r\nAdmissions",              
       "% Admissions\r\nw/ LOS: 100+",            
       "# of Days\r\nAssessed",              
       "Cumulative\r\nCensus",              
       "% Antibacterial\r\nUsage",             
       "2014 Total\r\nDischarges",             
       "% Discharge\r\nto Hospital",            
       "% Discharges to Hospital\r\nw/ Infx based on Primary\r\n& Other Diagnoses", 
       "Avg. Elixhauser\r\nScore",             
       "Any MDRO",                 
       "High Frequency of Bath/Shower\r\n(5+ days/wk)") 


ui <- fluidPage(
    titlePanel("Summaries"), 
    tabsetPanel(
    tabPanel("Matching Variables Info", 
      sidebarPanel(

       selectInput("col1", "First Column", colnames(D)), 

       selectInput("col2", "Second Column", colnames(D), colnames(D)[19]) 
      ), 


      # Show summaries of columns choosen above 
      mainPanel(

       verbatimTextOutput("dataInfo") 

      ) 
    ) 
) 
) 

server <- function(input, output){ 

    output$dataInfo <- renderPrint({ 
    summary(D[, c(input$col1, input$col2)]) 
    }) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

\r\n는 원본 데이터가 Excel에서 여러 행과 셀을했다 아마도 때문에, 윈도우 개행 문자입니다.

당신과 함께 공간으로 변환 할 수 있습니다 :

colnames(D) <- gsub("\r\n"," ", colnames(D))