library(dplyr)
library(purrrlyr)
library(formattable)
library(sparkline)gen_spkline <- function(df, name, type = 'line', lclr = '', fclr = '') {expr = paste0("select(df, LOCATION, Value, TIME) %>%filter(TIME >= '1980') %>%group_by(LOCATION) %>%arrange(TIME) %>%summarise('",name,"' = htmltools::as.tags(sparkline(as.numeric(Value), type = '",type,ifelse(type == 'bar', "', barColor = '", "', lineColor = '"),lclr,ifelse(type == 'bar', "', negBarColor = '", "', fillColor = '"),fclr,"', width = 100)) %>% as.character)")return(eval(parse(text = expr)))
}gen_plot <- function(df) {df <- merge(df, ctrs, all.x = T) %>%filter(!is.na(cn)) %>%select(国家 = cn, 2:ncol(df))df[is.na(df)] <- ''wgt <- as.htmlwidget(formattable(df,align = "l",list(area(col = 1) ~formatter("span",style = ~ style(color = "#223344","font-weight" = "bold","font-family" = '微软雅黑')))))wgt$dependencies = c(out$dependencies,htmlwidgets:::widget_dependencies("sparkline", "sparkline"))return(wgt)
}

<span id="htmlwidget-87b2c81375ea83ee4bf4" class="sparkline html-widget"></span>n<script type="application/json" data-for="htmlwidget-87b2c81375ea83ee4bf4">{"x":{"values":[2393.130563,2589.991464,2768.962578,2961.39133,3212.440198,3361.649639,3576.374986,3701.51812,3826.159388,3862.229627],"options":{"type":"line","lineColor":"gray","fillColor":"greenyellow","height":20,"width":100},"width":100,"height":20},"evals":[],"jsHooks":[]}</script>

        fmt <- formattable(df,align = "l",list(area(col = 1) ~formatter("span",style = ~ style(color = "#223344","font-weight" = "bold","font-family" = '微软雅黑'))))

gen_spark <- function(vect, ptype = 'line') {as.character(htmltools::as.tags(sparkline(vect, type = ptype)))
}df1 <- data.frame(a = gen_spark(sample(3), 'pie'),b = gen_spark(sample(15), 'bar'),c = gen_spark(sample(20), 'box'),d = gen_spark(sample(25), 'discrete'),e = gen_spark(sample(rep(-1:1, 10)), 'tristate'),f = gen_spark(sample(50), 'line'),stringsAsFactors = F
)df2 <- data.frame(type = c(gen_spark(sample(3), 'pie'),gen_spark(sample(15), 'bar'),gen_spark(sample(20), 'box'),gen_spark(sample(25), 'discrete'),gen_spark(sample(rep(-1:1, 10)), 'tristate'),gen_spark(sample(50), 'line')),stringsAsFactors = F
)gen_wgt <- function(df) {wgt <- as.htmlwidget(formattable(df))wgt$dependencies = c(out$dependencies,htmlwidgets:::widget_dependencies("sparkline", "sparkline"))return(wgt)
}