Часть кода, не выполняющаяся в режиме исходного кода

Question

Определенная часть кода не выполняется в режиме «Исходный код». Однако он работает, когда я выполняю в режиме «Выполнить». Я предоставил здесь весь код. Этот конкретный раздел прокомментирован.

Пожалуйста, помогите !!

 ## Set Network Folder
 # setwd("//sapfs/apd/chip_allocation")
   setwd("C://Allocation")
   library(dplyr)
   library(plyr)

 ## Load requisite libraries
    Sys.setenv(JAVA_HOME='C:\\Program Files\\Java\\jdk-10.0.2')
    Sys.setenv("R_ZIPCMD" = "C:\\Rtools\\bin\\zip.exe")

 ## Read multiple excel files at one go
 ## Read specific worksheets from each file
    library(readxl)
    filenames <- list.files(path = ".",pattern = "*.xlsx", all.files = TRUE)
    for (i in 1:length(filenames)) {
     assign(paste0("file_", i), 
     read_excel(filenames[i],sheet = "Build Allocation"), envir = .GlobalEnv)
     }

  ## Remove "filesnames" and "i" from workspace object memory
      rm(filenames, i)
  ## Remove first row from each of the dataframe
     cities <- objects()
     for (i in cities) { assign(i, get(i)[-1,])}

  ## Convert 1st row into column names in each dataframe
  ## And assign them into respective new dataframe

  ## This section not executing in Source Mode
      library(janitor)
      library(dplyr)
      library(reshape)
      for (i in cities){
       assign(paste0("file_",i) , get(i) %>%  row_to_names(row_number = 1))
      }