r - How to reduce the font size of a tooltip in rnvd3? -


i using rnvd3 packadge plot interactive multibarchart in shiny app, , tooltip of chart has big font size , reduce it.

here code:

library(shiny) library(rcharts) library(shinythemes) library(shinydashboard)  ui <- navbarpage(title = "information",                tabpanel(title = "graph",                                   fluidrow(                                  column(2),                                  column(8,                                         tags$br(),                                         tags$h5("chart", style="font-weight: bold; font-size:20px", align = "center"),                                         tags$br())                                ),                                fluidrow(                                 column(1),                                 column(8,                                        tags$br(),                                        tags$h5("exemple", style="font-weight: bold; font-size:14px", align = "center"),                                        tags$br(),                                        showoutput("bar","nvd3")),                                  column(1)                               )                ) )  server <- function(input,output, session) {   output$bar <- renderchart2({    database2 <- cbind(cbind(c(100,110,140),c("2016-09-05","2016-09-05","2016-09-05")),c("product a","product b","product c"))   database2[,1] <- as.numeric(database2[,1])    database2[,2] <- as.date(database2[,2],origin="1899-12-30")   colnames(database2) <- c("price","date","key")   database2 <- as.data.frame(database2)    m1net_eb <- nplot(price ~ date, group = 'key', data = database2, type='multibarchart')   m1net_eb$chart(margin = list(left=60,bottom=110,right=60))   m1net_eb$chart(forcey = 0)   m1net_eb$set(linewidth = 1, width=1100 , height = 700)   m1net_eb  })  }  shinyapp(ui=ui, server=server)

how reduce font size of tooltip in packdge? please help

just add 

                          tags$head(tags$style(html("                                            .nvtooltip h3 {                                               font-size:14px;                                            }                                            ")))

here full code. 

library(shiny) library(rcharts) library(shinythemes) library(shinydashboard)  ui <- navbarpage(title = "information",                   tabpanel(title = "graph",                              fluidrow(                             column(2),                             column(8,                                    tags$br(),                                    tags$h5("chart", style="font-weight: bold; font-size:20px", align = "center"),                                    tags$br())                           ),                            fluidrow(                             column(1),                             column(8,                                    tags$br(),                                    tags$h5("exemple", style="font-weight: bold; font-size:14px", align = "center"),                                    tags$br(),                                    showoutput("bar","nvd3")),                              column(1)                           ),                            tags$head(tags$style(html("                                            .nvtooltip h3 {                                               font-size:14px;                                            }                                            ")))                    ) )  server <- function(input,output, session) {     output$bar <- renderchart2({      database2 <- cbind(cbind(c(100,110,140),c("2016-09-05","2016-09-05","2016-09-05")),c("product a","product b","product c"))     database2[,1] <- as.numeric(database2[,1])      database2[,2] <- as.date(database2[,2],origin="1899-12-30")     colnames(database2) <- c("price","date","key")     database2 <- as.data.frame(database2)      m1net_eb <- nplot(price ~ date, group = 'key', data = database2, type='multibarchart')     m1net_eb$chart(margin = list(left=60,bottom=110,right=60))     m1net_eb$chart(forcey = 0)     m1net_eb$set(linewidth = 1, width=1100 , height = 700)     m1net_eb    })  }  shinyapp(ui=ui, server=server)

-

Comments

Post a Comment

Popular posts from this blog

javascript - Thinglink image not visible until browser resize -

Image
i trying repurpose pre-existing theme, includes drop down menu displays image. trying embed thinglink drop down menu's content section, not visible until resize browser window. here menu looks like: then when clicked, can see empty space image should show: then when browser resized, image appears: this code content of menu: <div class="ajax_accordion_content" style="display: none;"> <div class="report-detail"> <table border="0" cellpadding="0" cellspacing="0" width="100%" class="table_basic"> <tbody> <!-- thinglink image embedded --> <img style="max-width: 100%;" src="http://cdn.thinglink.me/api/image/832705713204625409/1024/10/scaletowidth#tl-832705713204625409;1043138249'" class="alwaysthinglink"/> <script async charset="utf-8" src="http://cdn.thinglink.me/jse/embed.j
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database :=
Read more

mongodb - How to keep track of users making Stripe Payments -

i'm trying figure out way mean stack application keep track of users have paid grant them access portion of webpage. i've considered several options: stripe customer id, mongodb record, , html attribute can update. my mean stack keeps track of users jwt, , appears stripe assigns them own customer id isn't ideal. can done jwt opposed forced cutomer id? mongodb record. i'm thinking might best option. when new user has been created, i'll give attribute of haspaid = no. update record of customer when payment submitted. guess run script set unpaid each day? html element/attribute. don't know if possible; cool create key carried during html session after payment received. if person closers browser session closed? i'm looking guidance on 3 options determine if they're best solution. also, if has suggestions alternatives, i'm ears! thanks in advance. speaking generally, common approach second one: use attribute in data model indicates
Read more