Соскоб Amazon Подробная информация о продукте: вывод макета RShiny - PullRequest
Новая
       7

Соскоб Amazon Подробная информация о продукте: вывод макета RShiny

0 голосов
/ 22 января 2020

Новичок в Shiny и чистка в целом.

Я могу очистить маркеры описания продукта от Amazon, который работает нормально, однако они не остаются в форме маркеров и просто объединяются в абзац, но я Хотелось бы, чтобы результат в виде «блеска» оставался в виде маркеров.

ui.R 

ui <- fluidPage(
    titlePanel("AMZ Scorecard"),


mainPanel(textInput("asin", "Insert ASIN", value = "", width = NULL, placeholder = "B07BFDH45"),


fluidRow(tags$div(tags$ul(tags$li(textOutput("prodbullets"[[1]])))))
         )

Server.R 

server <- function(input, output) {
output$prodbullets <- renderText({
HtmlLink <- paste0("https://www.amazon.com/dp/",input$asin)
txtPage <- read_html(HtmlLink)

ProdDesc <- txtPage %>%
    html_node("ul.a-spacing-none")%>%
    html_text()
ProdDesc <- getCleanText(ProdDesc)
ProdDesc <- gsub("\\t+", " ",ProdDesc)
ProdDesc <- strsplit(ProdDesc,"  ",fixed = T)
ProdDesc <- unlist(ProdDesc)

print(ProdDesc)
})
}

Как видите, я подумал, что Это была строка, поэтому я мог выбрать первый элемент и вывести их по отдельности, но нет. Я знаю, что это, вероятно, очень просто, так что помогите брату.

Спасибо

...