r - Get maximum and minimum values for input$variable Shiny RStudio -

-

my name nate , trying build little data analysis tool using shiny rstudio.

right using own data, values numeric...let's pretend using mtcars dataset comes r.

i to: 1. allow user select numeric variable dataframe via drop down menu

  1. have computer calculate minimum , maximum values said variable

  2. allow user input number between 1 , 50 slider input

  3. divide difference between maximum , minimum of first variable value obtained slider input

the first error got was: 1. non-numeric argument binary operator

so tried coerce variable using as.numeric(), led second error:

  1. nas introduced coercion

putting print(max(input$var) line in server.r file gives me variable name instead of number.

any appreciated. have posted part of ui.r , server.r files below. thank in advance.

ui.r:

library(shiny) load('mtcars') shinyui(pagewithsidebar(     headerpanel("mtcars interactive analysis tool"),   sidebarpanel( selectinput(inputid = "histvar", label= "pick variable", choices=names(mtcars), selected = null)),  sliderinput(inputid = "binnum", label = h5("number of bins histogram--1 through 50 allowed"), min = 1, max = 50, value = 15,  step = 1)  mainpanel(...blah blah blah)

server.r:

library(shiny) load("mtcars")   shinyserver(function(input, output) {  output$histplot <- renderplot({    varrangeget <- range(input$histvar)   #print(varrangeget)   #print(class(varrangeget))   #print(max(input$histvar))   realrange<-(varrangeget[[2]]- varrangeget[[1]])   binwidthx <- realrange/input$binnum  # errors out...can't continue  })   })

again, thank on this...i don't understand why can't perform simple calculations on input variable within shiny....

i start out simple here code modified single script. first see if can going. works on system. have never seen load data in ui.r code. if need make drop down dynamic need utilize uioutput, load data in server.r , render in ui. anyway first try running code.

library(shiny) runapp(list(   ui = pagewithsidebar(       headerpanel("mtcars interactive analysis tool"),     sidebarpanel(       selectinput(inputid = "histvar",                   label= "pick variable",                   choices=names(mtcars),                   selected = null)),      sliderinput(inputid = "binnum",                 label = h5("number of bins histogram--1 through 50 allowed"),                 min = 1,                 max = 50,                 value = 15,                  step = 1)),   server = function(input, output) {     output$histplot <- renderplot({      varrangeget <- range(input$histvar)     #print(varrangeget)     #print(class(varrangeget))     #print(max(input$histvar))     realrange<-(varrangeget[[2]]- varrangeget[[1]])     binwidthx <- realrange/input$binnum      # errors out...can't continue    })   } ),port = 3300)

Comments

Post a Comment

Popular posts from this blog

c++ - OpenCV Error: Assertion failed <scn == 3 ::scn == 4> in unknown function, -

-
i read alot other solution still confused should mine... #include <opencv2/objdetect/objdetect.hpp> #include <opencv2/highgui/highgui.hpp> #include <opencv2/imgproc/imgproc.hpp> #include <iostream> #include <stdio.h> using namespace std; using namespace cv; int main(int argc, const char** argv) { //create cascade classifier object used face detection cascadeclassifier face_cascade; //use haarcascade_frontalface_alt.xml library face_cascade.load("haarcascade_frontalface_alt.xml"); //setup video capture device , link first capture device videocapture capturedevice; capturedevice.open(0); //setup image files used in capture process mat captureframe; mat grayscaleframe; //create window present results namedwindow("outputcapture", 1); //create loop capture , find faces while (true) { //capture new image frame capturedevice >> captureframe; ...
Read more

php - render data via PDO::FETCH_FUNC vs loop -

-
i've been using 2 methods render data. the first one: function name($id,$name){ return '<div id="'.$id.'">'.$name.'</div>'; } echo implode($pdo->query("select id,name user")->fetchall(pdo::fetch_func,'name')); the second one: $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); foreach($users $user){ echo name($user->id,$user->name); } i don't understand how pdo::fetch_func works. tried figure out. however, not well-documented. could please explain fetch mode? , also, 1 performs better? thank you. both methods wrong , have learn how use templates , how separate business logic presentation logic. $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); tpl::assign('users', $users); is code business logic part. then in template <?php foreach $users $row): ?> <div id="<?=$...
Read more

The canvas has been tainted by cross-origin data in chrome only -

-
uncaught securityerror: failed execute 'getimagedata' on 'canvasrenderingcontext2d': canvas has been tainted cross-origin data i getting above error in chrome. code(following) works fine in mozilla. have not corss domain issue. why above error in chrome? var wheel_canvas, wheel_context, can_w, can_h, wheel_grd; var large_radius = 160; var small_radius = 120; var wheel_canvas = document.getelementbyid('wheel_canvas'); var wheel_context = wheel_canvas.getcontext('2d'); var can_w = $(wheel_canvas).width(); var can_h = $(wheel_canvas).height(); var centerx = can_w / 2, centery = can_h / 2; var wheel_grd = null; test('#ff0000'); function test(hex) { $('#clrpicker').css({'left': 210, 'top': 210 }); inverted = hexbw(hex); $('#color_val_show').val(hex); current_color_hex_val_selected = hex; $('#color_val_show').css({'color':inverted,'background':hex}); fillgradient...
Read more