Я использую функцию Rvest или read.txt () и как со следующими данными

Question

Я хочу импортировать 100 текстовых файлов с веб-сайта, но как мне их упорядочить в нужном мне формате. Вот образец данных:

NOTE: futures symbols begin with the character @
      index symbols begin with the character $

Symbol (option symbols)           hv20  hv50 hv100    DATE   curiv Days/Percentile Close
****************************************************************
*  Data generated by McMillan Analysis Corp.    Copyright 2019 *
*   www.optionstrategist.com                800-724-1817       *
****************************************************************
$BKX                                22    18    22  190211   21.42    15/ 20%ile   91.76
$DJX                                10    11    20  190322   16.24   600/ 84%ile  255.02
$HGX                                16    15    23  190322   22.61   378/ 70%ile  286.36
$MNX 

файлы взяты с сайта подписки и сохраняются в виде текста, например. vh_sym_20190322, если кто-нибудь может мне помочь, это будет оценено. Мне нужно не только загружать объемные текстовые файлы, но затем мне нужно их оборачивать, чтобы у меня были только заголовки, например. «Символ», «hv28» и т. Д., А также данные с символами и номерами, например. «$ BKX», «22» и т. Д., Еще раз спасибо всем, кто может предложить помощь. PS. Я подписываюсь на данные этой компании.

Answer 1

Предполагая, что файл просто так , это работает:

cn <- read.fwf("~/Downloads/foo.txt", c(34, 4, 6, 6, 8, 8, 16, 6), skip=3, comment.char="*", header=F, n=1)
cn
#                                   V1   V2     V3     V4       V5       V6               V7
# 1 Symbol (option symbols)            hv20   hv50  hv100     DATE    curiv  Days/Percentile
#       V8
# 1  Close
cn <- make.names(trimws(unlist(cn)))
cn
# [1] "Symbol..option.symbols." "hv20"                    "hv50"                   
# [4] "hv100"                   "DATE"                    "curiv"                  
# [7] "Days.Percentile"         "Close"                  
dat <- read.fwf("~/Downloads/foo.txt", c(34, 4, 6, 6, 8, 8, 16, 6), skip=4, comment.char="*", header=FALSE)
colnames(dat) <- cn
str(dat)
# 'data.frame': 3 obs. of  8 variables:
#  $ Symbol..option.symbols.: Factor w/ 3 levels "$BKX                              ",..: 1 2 3
#  $ hv20                   : int  22 10 16
#  $ hv50                   : int  18 11 15
#  $ hv100                  : int  22 20 23
#  $ DATE                   : int  190211 190322 190322
#  $ curiv                  : num  21.4 16.2 22.6
#  $ Days.Percentile        : Factor w/ 3 levels "    15/ 20%ile  ",..: 1 3 2
#  $ Close                  : num  91.8 255 286.4

Возможно, вы захотите обновить имена столбцов и / или включить stringsAsFactors=FALSE. После этого у вас будет небольшая очистка данных, например, Days.Percentile выглядит как комбинированная ячейка, которая была менее тривиальна для очистки с использованием только чтения фиксированной ширины.