Question

运行代码时，它给了我<LangVersion>6</LangVersion>的空间。我试图从结果中删除\r\n，但没有删除。这是代码。请检查一下。

\r\n

Answer 1

不确定您到底想要什么，但是此代码有效：

library(shiny)

ui <- fluidPage(
  sidebarLayout(sidebarPanel(
    fileInput("FileInput", "Input Your Data Set (Must be .csv)"),
    selectInput(inputId = "responsevar",
                 label = "Dependent Varibale:", 
                 choices = NULL)
  ), #sidebar panel
  mainPanel(
    tabsetPanel(
      tabPanel("Table",
               DT::dataTableOutput("table")
      )
    ) #tabset Panel
  ) #main panel
  ) #sidebarlayout
) #fluidpage

server <- function(input, output, session) {
  datasetInput <- reactive({
    infile <- input$FileInput
    if (is.null(infile))
      return(NULL)
    read.csv(infile$datapath, header = TRUE)
  })

  output$table = DT::renderDataTable(datasetInput())

  observeEvent(datasetInput(),{
    updateSelectInput(session, "responsevar", choices = names(datasetInput()))
  })

} #server

shinyApp(ui = ui, server = server)

如何从语言价格中删除\ r \ n？

1 个答案: