小编MLE*_*LEN的帖子

是否可以创建一个编写 rmarkdown 文档的函数？例如，我想创建 3 个不同的 htlml_documents，其中包含鸢尾花数据集中不同物种的摘要。有些像下面（不是工作示例）

markdown_function  <- function(function_input){

---
title: "Untitled"
date: "November 14, 2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r iris}
summary(iris[iris$Species == function_input, ])
```

}

   apply(data.frame(species = c('setosa', 'versicolar', 'virginica')), 1, markdown_function)

使用knitr/R markdown编织时,是否可以在代码中隐藏一些注释？例:

---
title: "SOSO"
author: "SO"
date: '2017-06-06'
output: pdf_document


---

```{r}

# Generate some data

rnorm(2)

## But keep this comment

```

在编织时,我希望第一个评论消失,但保留第二个不知何故.

我正在尝试使用以下方法在此网站上找到一个单一元素 findElement

https://shiny.rstudio.com/gallery/datatables-options.html

例如“显示长度”。

稍后我想使用查找所有元素findElements。也就是说，“显示长度”，...，“函数回调”。共5个

我试图找到第一个元素（显示长度）：

remDr$navigate("https://shiny.rstudio.com/gallery/datatables-options.html")
elems <- remDr$findElement("css selector", "#showcase-app-container > nav > div > ul > li.active > a") 
# Unable to locate element 

elems <- remDr$findElement("xpath", "//*[@id='showcase-app-container']/nav/div/ul/li[1]/a") 
# Unable to to locate element

我尝试查找以下几个元素：

elems <- remDr$findElements("class", "nav navbar-nav") 
# Invalid or does not result in a WebElement

elems <- remDr$findElements("css selector", "#showcase-app-container > nav > div > ul") 
# list of 0

elems <- remDr$findElements("xpath", "//*[@id='showcase-app-container']/nav/div/ul") 
# list of 0

首先，我知道有几个线程，但是我尝试了很多解决方案，但我无法解决任何问题。

我对 mysql 服务器和终端没有任何经验。

我下载的是mysql server 5.7.19

按照 redtek 的回答，这里：Setting the MySQL root user password on OS X

我从系统设置中打开 mysql，单击停止服务器。然后我打开终端并写

sudo mysqld_safe --skip-grant-tables

我问我的密码（我认为这与我启动计算机时的密码相同）。我收到一条消息，找不到命令。

MacBook-Pro:~ XXXXXX$ sudo mysqld_safe --skip-grant-tables
Password:
sudo: mysqld_safe: command not found
MacBook-Pro:~ XXXXXX$ 

更新：当我运行下面的解决方案时，打开一个新窗口后，我收到以下错误：

Last login: Sun Aug 13 16:51:49 on ttys002


MacBook-Pro:~ XXXXX$   mysql -u root  


-bash: mysql: command not found


MacBook-Pro:~ XXXXX$ UPDATE mysql.user SET Password=PASSWORD('my-new-password') WHERE User='root';  


-bash: syntax error near unexpected token `('


MacBook-Pro:~ XXXXX$ FLUSH PRIVILEGES;  


-bash: FLUSH: command not …

如何删除下图中的“系列 2”？该文档指向https://api.highcharts.com/highcharts/plotOptions.flags。但是，我找不到如何将附加选项添加到“...”的示例。

library("quantmod")
library("highcharter")

usdjpy <- getSymbols("USD/JPY", src="oanda", auto.assign = FALSE)

dates <- as.Date(c("2018-01-08", "2018-01-12"), format = "%Y-%m-%d")
highchart(type = "stock") %>% 
  hc_add_series(usdjpy, id = "usdjpy") %>% 
  hc_add_series_flags(dates,
                      title = c("E1", "E2"), 
                      text = c("This is event 1", "This is the event 2"),
                      id = "usdjpy") %>% 
  hc_legend(enabled = T)

是否可以将ggpairs中的相关位数四舍五入为例如2位数？

library(GGally)
ggpairs(iris,
        columns = 1:4,
        mapping = ggplot2::aes(col = Species))