我正在尝试以列表形式创建商品说明。
示例:
此描述在我的数据库中有存储,文字作为数据类型。
问题:
我将所有描述都放在一行中,因此我尝试通过替换“”来插入换行符。用于“ \ n”并使用HTML标记,但似乎不起作用。
library(tidyverse)
library(plotly)
library(lubridate)
Date <- seq(as.Date("2016-10-1"), as.Date("2018-09-01"), by="month")
Values <- c(2,3,4,3,4,5,6,4,5,6,7,8,9,10,8,9,10,11,12,13,11,12,13,14)
Date2 <- seq(as.Date("2018-07-1"), as.Date("2018-09-01"), by="month")
Values2 <- c(16,17,18)
df <- tibble::tibble(Date, Values)
df2 <- tibble::tibble(Date2, Values2)
testfunction <- function(x, y, y2){
p <- plot_ly(df,x = ~x, y = ~y, colors = "Blues", type = 'scatter', mode = 'lines') %>%
add_trace(data = df2, y = ~y2, line = list(color = 'rgb(255, 36,1)', width = 2.25)) %>%
layout(xaxis = list(tickformat = "%b %e"))
p
}
testfunction(Date, Values, Values2)
#Error: Column `y` must be length 1 or 24, not 3
结果:1.中等2. 100%棉3.等等
关于我还能做什么的任何想法吗?
最好的问候
答案 0 :(得分:1)
使用换行符。
<br />
更新: 试试这个:
Html.fromHtml(htmlText);