удаление кода tryCatch из моих результатов

Question

Я использую следующий код для получения описания заданий через ссылки на задания, которые я получаю из фрейма данных (именуемого как списки):

#obtain full description for all job postings

    for (i in (1:length(listings$link))){
      desciption <- tryCatch(
        html_text(html_node(read_html(as.character(listings$link[i])),'.jobsearch-JobComponent-description')),
        error=function(e){NA}
      )
      if (is.null(desciption)){
        desc <- NA
      }
      return(desciption)
      listings$description[i] <- desciption
    }

Я получаю описание, однако строки включите также код tryCatch, как показано здесь:

"Gormley, ONFull-time, Contract$25 an hour try   window.mosaic.onMosaicApiReady(function()   var zoneId = 'aboveFullJobDescription'; var providers = window.mosaic.zonedProviders[zoneId]; if (providers)   providers.filter(function(p)   return window.mosaic.lazyFns[p]; }).forEach(function(p)   return window.mosaic.api.loadProvider(p); }); } }); } catch (e)  }; Brake Mobile Wash is one of the largest mobile pressure washing companies in Ontario. We specialize in mobile pressure washing large commercial fleets across Ontario and Manitoba. We are currently looking for a Business Analyst to work out of our Gormley office.Job Responsibilities:Work alongside the Operations Manager to understand the business and the industryStudy and research current operations and structuresAnalyze maintenance and service history to look for past inefficiencies and develop a detailed maintenance program and forecast future service intervalsDevelop an in depth strategic business plan to present to management that includes direction and recommended improvementsDevelop strategies to reduce expensesImproving data to support daily operational activities and decision makingQualifications:Experienced as a business analyst or junior business analyst or similar role; knowledge of business analysis best practices is an assetPost-secondary education in economics, business or financeKnowledge of business and management principles involved in strategic planning, resource allocation, and project management methods.Ability to analyze business trends and project future revenues and expensesKnowledge of business plan and business model developmentProficiency in MS Office (e.g. Outlook, Word, Excel, PowerPoint, etc.)Good understanding of the transportation industry and commercial vehicles· Valid Driver’s license and access to a personal vehicle is requiredContract length: 6 weeksJob Types: Full-time, ContractSalary: $25.00 /hourEducation:Secondary School (Required) try   window.mosaic.onMosaicApiReady(function()   var zoneId = 'belowFullJobDescription'; var providers = window.mosaic.zonedProviders[zoneId]; if (providers)   providers.filter(function(p)   return window.mosaic.lazyFns[p]; }).forEach(function(p)   return window.mosaic.api.loadProvider(p); }); } }); } catch (e)  };"

Подскажите, пожалуйста, что мне делать, чтобы поддерживать только контент (только описание)

Answer 1

Это решение, которое я нашел на основе вашего предложения @DDJ :)

для (я в seq (1, длина (описание $ описания)))) {

listings$description[i] <- gsub("window\\.mosaic\\.\\S.*?catch \\(e\\) \\};", "", listings$description[i])
listings$description[i]<-gsub("try window.mosaic.onMosaicApiReady function   var zoneId =  aboveFullJobDescription ; var providers = window.mosaic.zonedProviders zoneId ; if  providers  providers.filter function p  return window.mosaic.lazyFns p ;  .forEach function p  return window.mosaic.api.loadProvider p ;  ;  ; catch  e  ; ", " ", listings$description[i])
listings$description[i]<-gsub("try window.mosaic.onMosaicApiReady function   var zoneId =  belowFullJobDescription ; var providers = window.mosaic.zonedProviders zoneId ; if  providers  providers.filter function p  return window.mosaic.lazyFns p ;  .forEach function p  return window.mosaic.api.loadProvider p ;  ;  ; catch  e  ;", " ", listings$description[i]) 
}