[英]R shiny selectInput with \r\n
我正在将数据从excel电子表格上传到Shiny,该公司的名字包括\\ r \\ n,而selectInput不允许我选择它们。 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)
\\r\\n
是Windows的换行符,可能是因为原始数据在Excel中具有包含多行的单元格。
您可以使用以下方法将它们转换为空格:
colnames(D) <- gsub("\r\n"," ", colnames(D))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.