教育工学会論文誌の特集号で，現代的ニーズへの対応についての，よその動向と教育工学との接点のような総説論文を担当することになってしまった。
論文を収集して，選定して，分析，という流れになりそうなので，RStudioではなく，VSCodeを使いたい。
settings.json
に以下を追記したら，とりあえずknitしてくれるようになった。 "r.bracketedPaste": true,
"r.rterm.mac": "/usr/local/bin/radian",
"files.associations": {
"*.Rmd": "markdown"
}こんなコードになる
# 2021年
curl2021 <- "https://www.jstage.jst.go.jp/article/kyoiku/89/1/89_40/_pdf/-char/ja"
dest2021 <- "../JJER/jjer2021.pdf"; download.file(curl2021, dest2021)
# 2020年以降
curl2020 <- "https://www.jstage.jst.go.jp/article/kyoiku/88/1/88_40/_pdf/-char/ja"
dest2020 <- "../JJER/jjer2020.pdf"; download.file(curl2020, dest2020)
curl2019 <- "https://www.jstage.jst.go.jp/article/kyoiku/87/1/87_38/_pdf/-char/ja"
dest2019 <- "../JJER/jjer2019.pdf"; download.file(curl2019, dest2019)
curl2018 <- "https://www.jstage.jst.go.jp/article/kyoiku/86/1/86_25/_pdf/-char/ja"
dest2018 <- "../JJER/jjer2018.pdf"; download.file(curl2018, dest2018)
curl2017 <- "https://www.jstage.jst.go.jp/article/kyoiku/85/1/85_13/_pdf/-char/ja"
dest2017 <- "../JJER/jjer2017.pdf"; download.file(curl2017, dest2017)
curl2016 <- "https://www.jstage.jst.go.jp/article/kyoiku/84/1/84_13/_pdf/-char/ja"
dest2016 <- "../JJER/jjer2016.pdf"; download.file(curl2016, dest2016)
curl2015 <- "https://www.jstage.jst.go.jp/article/kyoiku/83/1/83_26/_pdf/-char/ja"
dest2015 <- "../JJER/jjer2015.pdf"; download.file(curl2015, dest2015)
curl2014 <- "https://www.jstage.jst.go.jp/article/kyoiku/82/1/82_48/_pdf/-char/ja"
dest2014 <- "../JJER/jjer2014.pdf"; download.file(curl2014, dest2014)
# 2013年は電子データなし
curl2012 <- "https://www.jstage.jst.go.jp/article/kyoiku/80/1/80_KJ00008636065/_pdf/-char/ja"
dest2012 <- "../JJER/jjer2012.pdf"; download.file(curl2012, dest2012)
curl2011 <- "https://www.jstage.jst.go.jp/article/kyoiku/79/1/79_KJ00008018283/_pdf/-char/ja"
dest2011 <- "../JJER/jjer2011.pdf"; download.file(curl2011, dest2011)
curl2010 <- "https://www.jstage.jst.go.jp/article/kyoiku/78/1/78_KJ00007224872/_pdf/-char/ja"
dest2010 <- "../JJER/jjer2010.pdf"; download.file(curl2010, dest2010)
curl2009 <- "https://www.jstage.jst.go.jp/article/kyoiku/77/1/77_KJ00006253233/_pdf/-char/ja"
dest2009 <- "../JJER/jjer2009.pdf"; download.file(curl2009, dest2009)
curl2008 <- "https://www.jstage.jst.go.jp/article/kyoiku/76/1/76_KJ00005586686/_pdf/-char/ja"
dest2008 <- "../JJER/jjer2008.pdf"; download.file(curl2008, dest2008)
curl2007 <- "https://www.jstage.jst.go.jp/article/kyoiku/75/1/75_KJ00004931747/_pdf/-char/ja"
dest2007 <- "../JJER/jjer2007.pdf"; download.file(curl2007, dest2007)
curl2006 <- "https://www.jstage.jst.go.jp/article/kyoiku/74/1/74_KJ00004593360/_pdf/-char/ja"
dest2006 <- "../JJER/jjer2006.pdf"; download.file(curl2006, dest2006)
curl2005 <- "https://www.jstage.jst.go.jp/article/kyoiku/73/3/73_KJ00004390034/_pdf/-char/ja"
dest2005 <- "../JJER/jjer2005.pdf"; download.file(curl2005, dest2005)
# 2004年は2005年とまとめている
curl2003 <- "https://www.jstage.jst.go.jp/article/kyoiku1932/71/1/71_1_104/_pdf/-char/ja"
dest2003 <- "../JJER/jjer2003.pdf"; download.file(curl2003, dest2003)
curl2002 <- "https://www.jstage.jst.go.jp/article/kyoiku1932/70/1/70_1_82/_pdf/-char/ja"
dest2002 <- "../JJER/jjer2002.pdf"; download.file(curl2002, dest2002)
curl2001 <- "https://www.jstage.jst.go.jp/article/kyoiku1932/69/2/69_2_236/_pdf/-char/ja"
dest2001 <- "../JJER/jjer2001.pdf"; download.file(curl2001, dest2001)# 必要なライブラリなど
install.packages("pdftools")
#事前にセットアップ For MacOSX
system("brew install poppler")
system("brew install wget")library(pdftools)
jjer2021o <- pdftools::pdf_text("../JJER/jjer2021.pdf")
#簡単な前処理: 空白と改行記号を消す
jjer2021 <- jjer2021o[2]
for(n in 1:10){
jjer2021 <- gsub(" ", "", jjer2021)
jjer2021 <- gsub("\n", " ", jjer2021)
jjer2021 <- gsub("．", ".", jjer2021)
jjer2021 <- gsub("，", ",", jjer2021)
}
jjer2021## [1] "2021年の教育改革案・調査報告等41〈1月〉01.2701.05文科省：「デジタル教科書の在り方検討会議」文部科学省（以下「文科省」）：「小学校、中学に中間まとめ骨子案を提示。校及び高等学校等における新型コロナウイルス神戸市「教員間ハラスメント事案に係る再発防感染症対策の徹底について（通知）」を発出。止検討委員会」：2019年に発覚した教員間ハラ01.07スメント問題をめぐり、再発防止の報告書をま政府：1都3県（東京、埼玉、千葉、神奈川）とめる。を対象に緊急事態宣言の再発令を決定。期間は静岡県教委：教職員による児童・生徒へのわい1月8日〜2月7日（後に3月7日まで延長すせつ行為やセクハラ防止に向け、2021年度に児ることを決定）。童・生徒とのやりとりを学校で共有できる学校文科省：「新型コロナウイルス感染症対策とし用システムの活用や、教職員行動規範の制定にてのICTを活用した児童生徒の学習活動の支取り組む方針を表明。援について（通知）」を発出。01.2801.13国会：2020年度の第3次補正予算が参院本会議政府：緊急事態宣言の対象地域として新たに7で可決・成立。高校の情報端末整備の経費など府県（大阪、京都、兵庫、愛知、岐阜、栃木、を盛り込む。福岡）を追加。期間は1月14日〜2月7日（栃01.29木以外は3月7日まで延長）。政府：日本学術会議が菅義偉首相に拒否された01.15会員候補6人の任命を改めて求めたことについ文科省調査：2021年春高校卒業予定の就職希望て、応じない考えを表明。者は、前年同期より11％減の16万2,195人（昨文科省：国公立大学の2021年度入試で総合型選年11月末時点）で、2009年のリーマンショック抜（旧AO入試）を過去最多の99校が導入、時の落ち込み幅を上回る。内定率は80.4％（前学校推薦型選抜（旧推薦入試）も167校が導入年同期比3.2ポイント増）。したと発表。文科省・厚生労働省（以下「厚労省」）調査：静岡大学・浜松医科大学：2021年度に予定され2021年春大学卒業予定者の就職内定率は、前年ていた両大学の運営法人統合を延期すると表明。同期比4.9ポイント減の82.2％（12月1日時点）01.30‑31で、内定率の低下が目立った。大学入試センター：新型コロナウイルス対応で01.16‑17新設された、大学入学共通テストの第2日程を大学入試センター：初めての大学入学共通テス実施。ト（第1日程）を緊急事態宣言下で実施。01.19〈2月〉文科省：小学校の35人学級実現などに伴い「『令02.01和の日本型学校教育』を担う教師の人材確保・菅首相：緊急事態宣言中の深夜に銀座のクラブ質向上に関する検討本部」を設置。などを訪れていた田野瀬太道文部科学副大臣を01.26更迭。後任の副大臣には丹羽秀樹衆院議員が就中央教育審議会：「『令和の日本型学校教育』の任。構築を目指して〜全ての子供たちの可能性を引文科省：わいせつ教員対策のための教員免許法き出す、個別最適な学びと、協働的な学びの実施行規則改正案を公表。4月から懲戒免職にな現〜」を萩生田文科相に答申。った教員の処分理由も官報に記載する。滋賀県教委：県内の全教職員を対象とした、教02.02職員間のハラスメントに関する初の実態調査結政府：新型コロナウイルス感染拡大に伴う緊急果を発表。回答者8,087人（回答率57.9％）のう事態宣言を、栃木県を除く10都府県で3月7日ち1,337人が何らかのハラスメントを受けたとまで延長。申告した。政府：公立小学校の1学級当たりの上限人数を―41―"だめだ。