From 6019591c1c8c2380834f0e92427731c49ceab39b Mon Sep 17 00:00:00 2001
From: Ryo Nakagawara <ryonakagawara@gmail.com>
Date: Mon, 18 Nov 2019 17:39:27 +0900
Subject: [PATCH] finalType to finalcolor in `solo_gradient_box()`

---
 R/tile_maker.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/tile_maker.R b/R/tile_maker.R
index 4757e2b..64dc1e0 100644
--- a/R/tile_maker.R
+++ b/R/tile_maker.R
@@ -177,11 +177,11 @@ solo_gradient_box <- function(value = NULL, txt = NULL, former = NULL,
       href = link,
       title = hover,
       # color= "button",
-      color= finalType,
+      color= finalcolor,
       role = "button",
       # classes: size, color
       class = "btn", class = paste0("btn-", size),
-      class = paste0("btn-", finalType),
+      class = paste0("btn-", finalcolor),
       if (hide_value == FALSE) {
         tag(textModifier, tags$span(
           ico(icon), value, units,