R 有光泽的反应性if语句给出一个；[1] "；在输出方面。如何删除这个？

我有一个闪亮的服务器代码，其中有一个for循环来检查用户是否输入了9。但每当用户输入9或什么都不输入时，我将得到一个包含[1]以及“”

如果我不输入任何内容，则输出为

[1]""

如果输入9，则输出为

[1]"You are not working good"

如何避免这[1]以及双引号

下面是我的服务器.R代码

library(shiny)

shinyServer(function(input, output) {

output$name <- renderText({input$name})


output$whrs<-renderPrint({
if (input$whrs == "") {
  ""
} else  
if(input$whrs == 9)  {
  "You are not working good"
 }
  })

})

库（闪亮）
shinyServer（功能（输入、输出）{
输出$name这将使您继续：

library(shiny)

server <- function(input, output) {

  output$whrs<-renderText({
    if (input$text == "") {
      ""
    } else  
      if(input$text == 9)  {
        "You are not working good"
      }
  })

}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(selectInput("text","Enter text",choices=c("","1","9")),
              textOutput("whrs"))
  )
))

shinyApp(ui = ui, server = server)

库（闪亮）
服务器这将使您继续：

library(shiny)

server <- function(input, output) {

  output$whrs<-renderText({
    if (input$text == "") {
      ""
    } else  
      if(input$text == 9)  {
        "You are not working good"
      }
  })

}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(selectInput("text","Enter text",choices=c("","1","9")),
              textOutput("whrs"))
  )
))

shinyApp(ui = ui, server = server)

库（闪亮）
服务器另一个选项是使用
开关

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(selectInput("text","Enter text",choices=c("","1","9")),
              textOutput("whrs"))
  )
))


server <- function(input, output) {

  res <- reactive({
    switch(input$text, 
      `""` = "",     
      `9` =  "You are not working good",
      `1`  = NA
    )

})

  output$whrs<-renderText({
         res()
    })
}



shinyApp(ui = ui, server = server)

ui另一个选项是使用
开关

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(selectInput("text","Enter text",choices=c("","1","9")),
              textOutput("whrs"))
  )
))


server <- function(input, output) {

  res <- reactive({
    switch(input$text, 
      `""` = "",     
      `9` =  "You are not working good",
      `1`  = NA
    )

})

  output$whrs<-renderText({
         res()
    })
}



shinyApp(ui = ui, server = server)

ui仍然我得到了相同的输出，就像这样--[1]“你工作不好”我如何才能删除[1]以及“…我只需要输出，因为你工作不好，只需检查我添加的屏幕截图，同时使用我发布的代码…没有[1]仍然我得到了相同的输出，就像这样--[1]“你工作不好”我如何删除[1]和“…我只需要输出，因为你工作不好。请检查我添加的屏幕截图，同时使用我发布的代码…没有[1]