Koronavirus

Tämä sivu on ensyklopedia-artikkeli. Sivutunniste: Op_fi5925
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi5925}}

Koronavirus käsittelee SARS-COV-2-viruksen ja sen aiheuttaman COVID-19-taudin olennaisia piirteitä.

Laskenta

Piirrä näkemysverkko Kialon koronakeskustelusta

Koronakide-hankkeeseen liittyen tehdään näkemysverkkoja koronarokotusten argumentaatiosta.

+ Näytä koodi - Piilota koodi

# This code is Op_fi####/koronakide on page [[Koronavirus]]

library(OpasnetUtils)
library(gsheet)

df <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1Wzj_VqubkV6uomQS-St5UxzS5k25dDBs15DQFEsroOg/edit#gid=0")
df$Context <- "Koronakide"
df$Item <- gsub("\\.$", "", df$position)
df$label <- substr(df$text, 1,30)
df$rel <- ifelse(toupper(df$type)=="PRO","relevant defense","relevant attack")
df$type <- "argument"
df$Object <- gsub("\\.[0-9]$","", df$Item)
df$Description <- df$text

objects.latest("Op_en3861", code_name="makeGraph") # [[Insight network]] makeGraph

gr <- makeGraph(df)
render_graph(gr, title="Kialo-keskustelu koronarokotteiden pakollisuudesta")
export_graph(gr, "~/home/jouni/Documents/Koronakide.pdf")

Hae kirjanmerkit Firefoxista

+ Näytä koodi - Piilota koodi

# Firefoxista tallennettiin bookmarkeiksi kaikki korona-välilehdet. Nämä exportattiin html-tiedostoksi koronalinkit.html

library(xml2)
library(rvest)

df <- read_html("koronalinkit.html", options="HUGE")
df <- data.frame(
  html_attr(html_nodes(df, css="a"),"href"),
  html_text(html_nodes(df, css="a"))
)
colnames(df) <- c("url","name")
write.csv(paste0("* [", df$url, " ", df$name,"]"), "output.txt", row.names = FALSE)
# Tiedostosta poistettiin "-merkit ja sitten kopioitiin Opasnettiin.

Katso myös

Koronavirus

Sisällys

Laskenta

Piirrä näkemysverkko Kialon koronakeskustelusta

Hae kirjanmerkit Firefoxista

Katso myös

Navigointivalikko