r - Interactive shiny app returns wrong coordinates -


i'm trying use shiny create interactive scatter plot can click on point on graph , corresponding x , y co-ordinates. works (i.e. rstudio example) base graphics (commented out) gives different , incorrect numbers using ggplot. 

library(shiny) library(ggplot2)  ui <- basicpage(   plotoutput("plot1", click = "plot_click"),   verbatimtextoutput("info") )  server <- function(input, output) {   output$plot1 <- renderplot({     # plot(mtcars$wt, mtcars$mpg)     g=ggplot(mtcars,aes(wt,mpg))+geom_point()     g    })    output$info <- rendertext({     paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y)   }) }  shinyapp(ui, server)

do need add code?

one possible hack print ggplot2 object screen print() seems return coordinates in [0,1]. if note down plotting limits before, can calculate desired values.

library(shiny) library(ggplot2)  ui <- basicpage(   plotoutput("plot1", click = "plot_click"),   verbatimtextoutput("info") )  server <- function(input, output) {   output$plot1 <- renderplot({     # plot(mtcars$wt, mtcars$mpg)     g=ggplot(mtcars,aes(wt,mpg))+geom_point()       # works version 0.8.9 on: https://stackoverflow.com/questions/7705345/how-can-i-extract-plot-axes-ranges-for-a-ggplot2-object     a=ggplot_build(g)$layout$panel_ranges[[1]]     x.range <<- a$x.range     y.range <<- a$y.range      print(g)    })    output$info <- rendertext({      paste0("x=", x.range[1]+diff(x.range)*input$plot_click$x,            "\ny=", y.range[1]+diff(y.range)*input$plot_click$y)   }) }  shinyapp(ui, server)

this works full of things might go wrong. not sure if best way.


Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more