同时使用formattable和plotly
如果同时使用formattable和plotly,则在运行以下代码时会出现错误“最后一个图中的错误():最后一个图不存在”,这是Nico Katze在的注释部分中已经提到的问题同时使用formattable和plotly,r,datatable,shiny,plotly,R,Datatable,Shiny,Plotly,如果同时使用formattable和plotly,则在运行以下代码时会出现错误“最后一个图中的错误():最后一个图不存在”,这是Nico Katze在的注释部分中已经提到的问题 库(格式化表) 图书馆(绘本) DF找到了答案!它实际上是在使用formattable::但是在style函数上,这似乎是个问题。下面是加载plotly和formattable时正在工作的代码 library(formattable) library(plotly) DF <- data.frame(Ticker
库(格式化表)
图书馆(绘本)
DF找到了答案!它实际上是在使用formattable::但是在style函数上,这似乎是个问题。下面是加载plotly和formattable时正在工作的代码
library(formattable)
library(plotly)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=accounting(c(15988.08, 1880.33, NA,
130.00, 97.05, 50.99)),
Change=percent(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
DF
formattable(DF, list(
Name=formatter(
"span",
style = x ~ ifelse(x == "Technology",
formattable::style(font.weight = "bold"), NA)),
Value = color_tile("white", "orange"),
Change = formatter(
"span",
style = x ~ formattable::style(color = ifelse(x < 0 , "red", "green")),
x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x)))
)
库(格式化表)
图书馆(绘本)
DF
library(formattable)
library(plotly)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=accounting(c(15988.08, 1880.33, NA,
130.00, 97.05, 50.99)),
Change=percent(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
DF
formattable(DF, list(
Name=formatter(
"span",
style = x ~ ifelse(x == "Technology",
formattable::style(font.weight = "bold"), NA)),
Value = color_tile("white", "orange"),
Change = formatter(
"span",
style = x ~ formattable::style(color = ifelse(x < 0 , "red", "green")),
x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x)))
)