Удалить теги HTML из строк

Я пытаюсь извлечь текстовые данные из тегов HTML, используя rvest.

Данные:

[vc_row css_animation="" row_type="row" use_row_as_full_screen_section="no" type="full_width" angled_section="no" text_align="left" background_image_as_pattern="without_pattern"][vc_column][vc_column_text]\n\\n<h6 class="button" style="padding: 0px 42%;">Description</h6>\n\\n<ol>\n\\n \t<li>Ideal for : Women</li>\n\\n \t<li>Package Contents : 1 Pcs</li>\n\\n \t<li>Fit Type : Regular, Relaxed, Classic and Slim Fit.</li>\n\\n \t<li>Care Instructions : Machine Wash and Normal Wash.</li>\n\\n \t<li>Occasion : Lough, Smart, Dressy, Business, Casual and Formal.</li>\n\\n \t<li>Sleeve Type : Short sleeves, 3/4th Sleeves, Full Sleeves ,Kimono Sleeves and Off Shoulder.</li>\n\\n \t<li>Browse our Brand In Love for more choices of Shrugs , Tops and T shirt and Western wear Collections.</li>\n\\n \t<li>Care Instructions : Ensure washing the tee in cold water, don't iron directly on the print and don't dry in direct sunlight.</li>\n\\n</ol>\n\\n<img class="alignnone wp-image-858" src="https://justelite.in/wp-content/uploads/2020/06/art-size.jpg" alt="" />\n\\n<h6 class="button" style="padding: 0px 42%;">Reviews</h6>\n\\n[/vc_column_text][/vc_column][/vc_row]

Что я сделал:

html_text(read_html(as.character(data)))

Тем не менее я получаю vc_row css_animation и какой-то другой тег, который не удаляется.

dput данные:

structure(2L, .Label = c("", "[vc_row css_animation=\"\" row_type=\"row\" use_row_as_full_screen_section=\"no\" type=\"full_width\" angled_section=\"no\" text_align=\"left\" background_image_as_pattern=\"without_pattern\"][vc_column][vc_column_text]\n\\n<h6 class=\"button\" style=\"padding: 0px 42%;\">Description</h6>\n\\n<ol>\n\\n \t<li>Ideal for : Women</li>\n\\n \t<li>Package Contents : 1 Pcs</li>\n\\n \t<li>Fit Type : Regular, Relaxed, Classic and Slim Fit.</li>\n\\n \t<li>Care Instructions : Machine Wash and Normal Wash.</li>\n\\n \t<li>Occasion : Lough, Smart, Dressy, Business, Casual and Formal.</li>\n\\n \t<li>Sleeve Type : Short sleeves, 3/4th Sleeves, Full Sleeves ,Kimono Sleeves and Off Shoulder.</li>\n\\n \t<li>Browse our Brand In Love for more choices of Shrugs , Tops and T shirt and Western wear Collections.</li>\n\\n \t<li>Care Instructions : Ensure washing the tee in cold water, don't iron directly on the print and don't dry in direct sunlight.</li>\n\\n</ol>\n\\n<img class=\"alignnone wp-image-858\" src=\"https://justelite.in/wp-content/uploads/2020/06/art-size.jpg\" alt=\"\" />\n\\n<h6 class=\"button\" style=\"padding: 0px 42%;\">Reviews</h6>\n\\n[/vc_column_text][/vc_column][/vc_row]"
), class = "factor")

r dplyr gsub rvest
person james joyce    schedule 16.09.2020    source источник
comment
В каком формате исходные данные? Вы можете показать нам dput(data)?   -  person Allan Cameron    schedule 16.09.2020
comment
я добавил данные dput, пожалуйста, посмотрите   -  person james joyce    schedule 16.09.2020
comment
Отвечает ли это на ваш вопрос? Удаление тегов html из строки в R   -  person JBGruber    schedule 16.09.2020
comment
@JBGruber, нет, это то, что я уже сделал .. Но это не удаление всех тегов   -  person james joyce    schedule 16.09.2020

Ответы (1)


arrow_upward
1
arrow_downward

Насколько я вижу, то, что у вас есть, не является правильными HTML-тегами, поскольку они обычно разграничиваются символами ‹ и › (например, < h1 >). Ваши окружены [ h1 ]. Адаптируя функцию, указанную выше, вы можете сделать:

s <- structure(2L, .Label = c("", "[vc_row css_animation=\"\" row_type=\"row\" use_row_as_full_screen_section=\"no\" type=\"full_width\" angled_section=\"no\" text_align=\"left\" background_image_as_pattern=\"without_pattern\"][vc_column][vc_column_text]\n\\n<h6 class=\"button\" style=\"padding: 0px 42%;\">Description</h6>\n\\n<ol>\n\\n \t<li>Ideal for : Women</li>\n\\n \t<li>Package Contents : 1 Pcs</li>\n\\n \t<li>Fit Type : Regular, Relaxed, Classic and Slim Fit.</li>\n\\n \t<li>Care Instructions : Machine Wash and Normal Wash.</li>\n\\n \t<li>Occasion : Lough, Smart, Dressy, Business, Casual and Formal.</li>\n\\n \t<li>Sleeve Type : Short sleeves, 3/4th Sleeves, Full Sleeves ,Kimono Sleeves and Off Shoulder.</li>\n\\n \t<li>Browse our Brand In Love for more choices of Shrugs , Tops and T shirt and Western wear Collections.</li>\n\\n \t<li>Care Instructions : Ensure washing the tee in cold water, don't iron directly on the print and don't dry in direct sunlight.</li>\n\\n</ol>\n\\n<img class=\"alignnone wp-image-858\" src=\"https://justelite.in/wp-content/uploads/2020/06/art-size.jpg\" alt=\"\" />\n\\n<h6 class=\"button\" style=\"padding: 0px 42%;\">Reviews</h6>\n\\n[/vc_column_text][/vc_column][/vc_row]"
), class = "factor")

cleanFun <- function(htmlString) {
  return(gsub("<.*?>|\\[.*?\\]", "", htmlString))
}
cleanFun(s)
#> [1] "\n\\nDescription\n\\n\n\\n \tIdeal for : Women\n\\n \tPackage Contents : 1 Pcs\n\\n \tFit Type : Regular, Relaxed, Classic and Slim Fit.\n\\n \tCare Instructions : Machine Wash and Normal Wash.\n\\n \tOccasion : Lough, Smart, Dressy, Business, Casual and Formal.\n\\n \tSleeve Type : Short sleeves, 3/4th Sleeves, Full Sleeves ,Kimono Sleeves and Off Shoulder.\n\\n \tBrowse our Brand In Love for more choices of Shrugs , Tops and T shirt and Western wear Collections.\n\\n \tCare Instructions : Ensure washing the tee in cold water, don't iron directly on the print and don't dry in direct sunlight.\n\\n\n\\n\n\\nReviews\n\\n"

Создано 16 сентября 2020 г. с помощью пакета reprex (v0.3.0)

person JBGruber    schedule 16.09.2020