Подчищаю хвосты по оптимизации

iMissile · Apr 25, 2017 · 1e56d4f · 1e56d4f
1 parent 9d6326b
commit 1e56d4f
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 9 deletions.
diff --git a/62 a_la_weathermap/ru-tex-pdf-examples.Rmd b/62 a_la_weathermap/ru-tex-pdf-examples.Rmd
@@ -51,6 +51,7 @@ knitr::opts_chunk$set(dev='cairo_pdf') # решили проблему с ген
 library(latex2exp)
 library(ggplot2)
 # library(printr) !!!!
+# library(hrbrthemes)
 ```
 
 ## R Markdown

diff --git a/67 MTS DPI/emulate_data.R b/67 MTS DPI/emulate_data.R
@@ -46,10 +46,8 @@ if(FALSE){
 }
 
 # èìïîðòèðóåì http eDR ôàéëû -----------------------------------------
-http_df <- http_list %>%
-  purrr::map(read_delim, delim=',')
-
-df <- reduce(http_df, rbind) %>%
+df <- http_list %>%
+  purrr::map_df(read_delim, delim=',', .id = NULL) %>%
   repair_names() %>%
   sample_frac(0.2) # è ñðàçó ñëó÷àéíûì îáðàçîì óðåæåì îáúåì
 

diff --git a/67 MTS DPI/xDR_analysis.Rmd b/67 MTS DPI/xDR_analysis.Rmd
@@ -40,22 +40,21 @@ library(RColorBrewer)
 # Reading and combining many tidy data files in R, Jun 13, 2016 in science
 # http://serialmentor.com/blog/2016/6/13/reading-and-combining-many-tidy-data-files-in-R
 
-http_list <- dir(path="./", pattern="edr_BASE-edr_http_format.*", full.names=TRUE)
+http_list <- dir(path="./", pattern="edr_BASE-edr_http_format_.*", full.names=TRUE)
 ```
 
 Импортируемый список файлов:
 `r http_list`
 
 ```{r message=FALSE, warning=FALSE}
-http_df <- http_list %>%
-  purrr::map(read_delim, delim=',')
+df <- http_list %>%
+  purrr::map_df(read_delim, delim=',', .id = NULL) %>%
+  repair_names()
 
 ```
 
 
 ```{r}
-df <- reduce(http_df, rbind) %>%
-  repair_names()
 
 # преобразования -----------------------------------------
 # очистим имена колонок от кривых символов

diff --git a/71 report_samples/mystyles.sty b/71 report_samples/mystyles.sty
@@ -0,0 +1,3 @@
+\usepackage{fontspec}
+\setmainfont{Linux Libertine O}
+\usepackage[english,russian]{babel}