r - Shiny and ggplot - error when using both scale_x_ and scale_y_continuous -

-

background: odd one. essentially, working on shiny app people can pull csv export off particular website, upload , interactive it. because numbers large (millions) defaults scientific notation, isn't easy on eye, i'm trying use "labels = comma" correct this.

issue: when have both scale_x_cont , scale_y_cont in ggplot function, app crashes. when have x or y in there, runs fine.

now tried write smallest reproducible piece of code could, when made simple 1 using mtcars , same selectinput method, ran fine, no errors both scale_x_cont , scale_y_cont in place...

error

error in eval(substitute(expr), envir, enclos) : geom_point requires following missing aesthetics: x, y error: geom_point requires following missing aesthetics: x, y

minimal csv replicate with

https://raw.githubusercontent.com/nzcoops/datasets/master/dump_test

app

require(shiny) require(dt) require(ggplot2) require(scales) runapp(   list(     ui = fluidpage(       sidebarpanel(fileinput('file1', 'choose csv file',                              accept=c('text/csv',                                        'text/comma-separated-values,text/plain',                                        '.csv')),                    htmloutput("contents2"),                    htmloutput("contents3")       ),       mainpanel(         plotoutput("plot1"),         datatableoutput("contents4")       )     ),      server = function(input, output, session) {        contents1 <- reactive({         infile <- input$file1         if (is.null(infile))           return(null)         dat <<- read.csv(infile$datapath)         dat[,2:5] <<- lapply(dat[,2:5],function(x){as.numeric(gsub(",", "", x))})         names(dat)       })        output$contents2 <- renderui({         if (is.null(input$file1))           return(null)         selectinput('columnsx', 'columns x', contents1()[3:5])       })        output$contents3 <- renderui({         if (is.null(input$file1))           return(null)         selectinput('columnsy', 'columns y', contents1()[3:5])       })        output$contents4 <- renderdatatable({         if (is.null(input$file1))           return(null)         dat       }, options = list(paging = false, searching = false))        output$plot1 <- renderplot({         if (is.null(input$file1))           return(null)         p <- ggplot(dat, aes_string(x=input$columnsx, y=input$columnsy)) +           geom_point() +            scale_x_continuous(labels = comma) #+ scale_y_continuous(labels = comma)         # remove above hash , presence of scale_y_ crash app         print(p)       })     }   ))

you have funky scoping stuff going on in function. if replace first line of function this:

p <- ggplot(dat, aes_string(x=dat[input$columnsx], y=dat[input$columnsy]))

it plot out ok.


Comments

Post a Comment

Popular posts from this blog

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops', ...
Read more

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null ...
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens ...
Read more