Markdown не компилируется после первого чанка (останавливается при достижении html scrape) - PullRequest
Новая
       17

Markdown не компилируется после первого чанка (останавливается при достижении html scrape)

0 голосов
/ 31 мая 2019

Markdown не компилируется после первого чанка.Я могу запустить все блоки по отдельности и запустить их одновременно.При попытке связать с документом HTML разметка не компилируется сразу при первом фрагменте и останавливается.Никаких ошибок, никаких предупреждений и т. Д. И просто останавливается.

Я попытался eval = False, который просто ничего не выводит, я удалил несколько частей кода и обнаружил, что это часть очистки HTMLТаблица.Однако работает, когда я запускаю чанк. 

---
title: "Harry Potter Cast"
author: "Ben Tanaka"
date: "5/29/2019"
output:
  html_document:
    keep_md: yes
---


```{r setup, echo=FALSE, include=FALSE, warning=FALSE,message =FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(xml2)
library(rvest)
library(stringr)
library(tibble)
library(data.table)
library(knitr)
library(kableExtra)
library(dplyr)
library(tidyr)
library(ggplot2)
```

# *Harry Potter Cast*
```{r Harry_Potter}

potter_url <- 'https://www.imdb.com/title/tt1201607/fullcredits?ref_=tt_ql_1'
potter_scrape <- read_html(potter_url)
potter_cast_uf <- {potter_scrape %>% html_nodes("table") %>% .[[3]] %>% html_table()}
potter_cast_df <- potter_cast_uf[,c(2,4)]

setnames(potter_cast_df,old=c("X2","X4"),new=c("Actor","Character"))
str_replace_all(potter_cast_df$Actor, '[\r\n]' , '')
str_replace_all(potter_cast_df$Character, '[\r\n]' , '')
potter_cast_tbl <- as_tibble(potter_cast_df)

{potter_cast_tbl %>% mutate_all(funs(str_replace_all(.,'[\r\n]' , '')))}
potter_cast_tbl <- potter_cast_tbl[-1,]
potter_cast_tbl <- potter_cast_tbl[-92,]
{potter_cast_tbl %>% mutate_all(funs(str_replace_all(.,'Griphook /  \n            Professor Filius Flitwick' , 'Griphook / Professor Filius Flitwick')))}

{potter_cast_tbl <- potter_cast_tbl %>% separate(Actor,c("Actor_FName","Actor_MName","Actor_LName"))}

potter_cast_tbl$Actor_FName[!is.na(potter_cast_tbl$Actor_LName)]<- paste(potter_cast_tbl$Actor_FName[!is.na(potter_cast_tbl$Actor_LName)],potter_cast_tbl$Actor_MName[!is.na(potter_cast_tbl$Actor_LName)],sep=" ")

potter_cast_tbl$Actor_LName[is.na(potter_cast_tbl$Actor_LName)] <- potter_cast_tbl$Actor_MName[is.na(potter_cast_tbl$Actor_LName)]

potter_cast_tbl<-potter_cast_tbl[,-2]

output_dt <- head(potter_cast_tbl,10)

{output_dt %>% kable() %>% kable_styling()}
```

Нет сообщений об ошибках.Просто пытаюсь получить уценку html вязать вывод.

...