https://csaybar.github.io/post/eetf2/
https://ryali93.maps.arcgis.com/apps/opsdashboard/index.html#/0ba3c7bfd94a44f3bb893a2f05da40a2
logo |
.com | |
.org | |
.net | |
.io | |
record | |
Graphics | |
Graphic | |
Library | |
Libraries | |
prepared |
hex_to_Labspace <- function(hex) { | |
hextolab <- function(x) | |
convertColor(x,from="sRGB",to="Lab") | |
rgb_col <- col2rgb(hex)/255 | |
labspace <- apply(rgb_col, 2, hextolab) %>% t | |
colnames(labspace) <- c('L','a','b') | |
return(labspace) | |
} | |
Labspace_to_hex <- function(lab) { |
print('hi') |
hex_to_Labspace <- function(hex) { | |
hextolab <- function(x) | |
convertColor(x,from="sRGB",to="Lab") | |
rgb_col <- col2rgb(hex)/255 | |
labspace <- apply(rgb_col, 2, hextolab) %>% t | |
colnames(labspace) <- c('L','a','b') | |
return(labspace) | |
} | |
Labspace_to_hex <- function(lab) { |
# 1._Libraries ------------------------------------------------------------ | |
library(rvest) | |
library(openNLP) | |
library(NLP) | |
library(stringr) | |
library(tidyverse) | |
options(java.parameters = "- Xmx1024m") | |
blacklist <- read_table('R/blacklist.txt',col_names = F)[[1]] %>% tolower() | |
blacklist <- blacklist[!duplicated(blacklist)] %>% as.character() |
hi! |
my images will be here! :) |
aqui |