r - Increase size of rCharts on Shiny Dashboard -


i doing shiny dashboard using shinydashboard package. see in image attached, chart done using rcharts , highcharts library not using space of box. know if knows how user space of box. see attached code used:

## app.r ## library(shinydashboard) library(rcharts)  ui <- dashboardpage(    dashboardheader(title = "basic dashboard"),   dashboardsidebar(),   dashboardbody(     fluidrow(       tags$head(tags$style('.col-sm-6 {padding-left: 0px; padding-right: 0px ;}')),       box(status = "primary", width = 3, showoutput("plotatmosphere", "highcharts"))        )     )   )   server <- function(input, output) {    output$plotatmosphere = renderchart({            <- rhighcharts:::chart$new()           d <- data.frame(label = c("negative", "positive"), value = c(30, 70))           a$title(text = "")           # <- hplot(value ~ label, data = d, type = 'pie')           a$data(x = c("negative","positive"), y = c(30, 70), type = "pie", name = "amount")           a$plotoptions(pie = list(innersize = "90%",            startangle = -90, endangle = 90, center = list("50%", "100%"),datalabels = list(enabled = f)))           a$exporting(enabled = f)              a$chart(height = 150)              return(a)    })  }  shinyapp(ui, server)

enter image description here

this annoyingly complicated, have pass additional parameter server() fuction:

server <- function(input, output, session)

and use 1 of session variables clientdata dynamically resize plots:

output$hexchart<-renderchart2({ h1 <- highcharts$new() h1$chart(type = "spline") h1$series(data = c(1, 3, 2, 4, 5, 4, 6, 2, 3, 5, na), dashstyle = "longdash") h1$series(data = c(na, 4, 1, 3, 4, 2, 9, 1, 2, 3, 4), dashstyle = "shortdot") h1$legend(symbolwidth = 80) h1$set(width = session$clientdata$output_plot1_width) #dynamically resize session variable return(h1) })

where plot1 dummy plot inserted in ui:

box(width = 12, height = 450, solidheader = false, status = "primary",               plotoutput("plot1", height = "1px"),               showoutput("hexchart","highcharts")           )

Comments

Post a Comment

Popular posts from this blog

java - Spring Data JPA: Why findOne(id) executing delete query internally? -

i have 1 application using @manytomany annotation link 2 different entities 1 parent entity. not sure if have implemented properly. when execute .findone() on parent entity's repository find it, @ first fetch data along executing delete queries internally delete record mapping table (a table jpa creates after adding @manytomany annotation.). following generated sql queries , code snippet: java class @entity @table(name = "inventory") public class inventory { @id long id; // many other properties @manytomany(fetch=fetchtype.lazy) private list<stream> streams; @manytomany(fetch=fetchtype.lazy) private list<subject> subjects; } there no other annotation i've put in stream , subject entity class link inventory class. when run app, create following tables: inventory stream subject inventory_stream inventory_subject (inventory_stream , inventory_subject, 2 tables created automatically, don't k...
Read more

python - Mongodb How to add addtional information when aggregating? -

i beginner , wrote line pipeline works, wanna add other information output, screen name , or number of tweets.i tried add under $group gave me syntax error everytime here pipeline: def make_pipeline(): # complete aggregation pipeline pipeline = [ { '$match': { "user.statuses_count": {"$gt":99 }, "user.time_zone": "brasilia" } }, { "$group": { "_id": "$user.id", "followers": { "$max": "$user.followers_count" } } }, { "$sort": { "followers": -1 } }, { "$limit" : 1 } ]; i using on example : { "_id" : objectid("5304e2e3cc9e684aa98bef97"), "text" : "first week of school on :p", "in_reply_to_status_id" : null, "retweet_count" : null, ...
Read more

java - Incorrect order of records in M-M relationship in hibernate -

Image
i have 4 records in bridge table in mysql database. using @manytomany in hibernate, accurate order of employees incorrect incorrect of projects. following required material figure out doing mistake. this source. @entity @table(name="project") public class projectbean { @id @generatedvalue @column(name="project_id") private int projectid; @column(name="title") private string projecttitle; @manytomany(mappedby="projects") private collection<employeebean> employees; public projectbean() { employees = new arraylist<employeebean>(); } //getters & setters } @entity @table(name="employee") public class employeebean { @id @generatedvalue @column(name="employee_id") private int employee_id; @column(name="first_name") private string ...
Read more