writeImpl中出错：自R更新以来，要写入的文本必须是长度为一个字符的向量

我对R和Shinny是相当陌生的，因为我在家里的电脑上更新了R，所以出现了以下错误“要写入的文本必须是长度为一个字符的向量”

同样的代码在我的工作计算机上，在旧版本的R上也可以正常工作

ui <- fluidPage(
titlePanel("Title1"),
sidebarLayout(
sidebarPanel(
  numericInput("num", h3("Number input"), value = 1),
  fileInput("file1", h3("Import file"),
            accept = c(
              "text/csv",
              "text/comma-separated-values,text/plain",
              ".csv")),

  selectInput("lastv", "Choicevar1", choices = NULL),
  actionButton("do", "Submit")  
),

mainPanel(
  h2("Title2"),
  textOutput("text1"),
  textOutput("text2"),
  textOutput("text3"),
  textOutput("text4"),
  h2("Title3"),
  h4("Title4"),
  selectInput("vrh", "Choice var2", choices = NULL),
  actionButton("do2", "Submit"),
  tableOutput("tabrh")
  )))


server <- function(input, output, session) {

data <- reactive({
inFile <- input$file1
nbrep <- input$num
if (is.null(inFile))
  return(NULL)
tbl <- read.csv(inFile$datapath, header = T, sep =";")
tbl[1] <- NULL
vars <- names(tbl)
updateSelectInput(session, "lastv","Choice var", choices = vars)
updateSelectInput(session, "vrh","Choix second var", choices = vars)
return(tbl)
})

data2 <- reactive({
inFile <- input$file1
data <- read.csv(inFile$datapath, header = T, sep =";")
nbrep <- input$num
lastc <- input$lastv
data2 <- data
data2[1] <- NULL
if (is.null(data2))
  return(NULL)
data2 <- data2[1:which(colnames(data2)==lastc )]
data2 <- data2[1:nbrep,]
data2 <- data2[!apply(is.na(data2) | data2 == "", 1, all),]
return(data2)
})

observeEvent(input$do, {
output$text1 <- renderText({ paste("Text update 1 :", nrow(data2()))     }) 
output$text3 <- renderText({ paste("Text update 2 :", ncol(data2())) })
output$text2 <- renderText({ paste("Text update 3 :", nrow(data2())/input$num) })
})
output$text4 <- renderText({
nblignes <- nrow(data())
paste("Nombre de codes :", nblignes)
})

observeEvent(input$do2, {
output$tabrh <- renderTable({
inFile <- input$file1
data <- read.csv(inFile$datapath, header = T, sep =";")
nbrep <- input$num
data <- data[1:nbrep,]
cprop(table(data[, c("Rep", input$vrh)]),1)
 })  })
 }

---

ui
server.R
代码在哪里？