shiny-server

What I want to do is get the user ID from a wordpress logged-in user when I load a shiny app in an iframe. This variable could then be used to save and modify user-specific data. I have gotten some of the way by adding the following code to the wordpress page: <?php global $current_user; get_currentuserinfo(); $user_name = $current_user->user_login; $user_ID = get_current_user_id(); ?> And then this to make it a javascript variable: <script type="text/javascript"> var username = <?php echo json_encode($user_name) ?> ; var userID = <?php echo json_encode($user_ID) ?> ; </script> Using the

This is not yet a practical question but rather a theoretical one. I was thinking of using Shiny to display some raw data in an interactive way. This is fine. However - is it possible to have users change the data that is displayed? Say, if I have a bunch of sliders for users to restrict the underlying data to satisfy certain conditions and have these observations displayed - is it possible to allow the users to make modifications to that data and have these modifications sent back to the server, which in turn saves these changes? I am thinking of scenarios where users may use a Shiny

I have a sql query below that works just fine. Select * from dbo.Employee where StartDate between '08/01/2014' and '08/31/2014' order by StartDate I am modifying this query such that it takes date input from shiny UI (daterange) . sqlQuery(myconn, paste("Select * from dbo.Employee where StartTime between", "'as.character(input$daterange[1])'", "and", "'as.character(input$daterange[2])'", "order by StartTime")) I get an error [1,] "22007 241 [Microsoft][SQL Server Native Client 10.0][SQL Server]Conversion failed when converting date and/or time from character string." [,2] "[RODBC] ERROR: Could

How can I overwrite the output display options with running multiple charts with shiny and rchart so the output result is a 2x2 matrix type grid layout. require(rCharts) require(shiny) require(data.table) runApp(list( ui = mainPanel( span="span6", showOutput("chart2", "Highcharts"), showOutput("chart3", "Highcharts"), showOutput("chart4", "Highcharts") ), server = function(input, output){ output$chart3 <- renderChart({ a <- hPlot(Pulse ~ Height, data = MASS::survey, type = "bubble", title = "Zoom demo", subtitle = "bubble chart", size = "Age", group = "Exer") a$chart(zoomType = "xy") a$chart

I am trying to dynamically render multiple plots in a tab (better if this could be done across multiple tabs). After some search, I found this post is very helpful. But in my case, the number of plots is determined by the uploaded CSV file. So I think the question is how to call plotInput()$n_plot in a for loop? I appreciate any suggestions! At this moment, I am able to create multiples <div>s by calling renderUI . <div id="plot1" class="shiny-plot-output" style="width: 800px ; height: 800px"></div> <div id="plot2" class="shiny-plot-output" style="width: 800px ; height: 800px"></div> But I

I have a shiny app deployed on a Linux server. I want the app to timeout if there is no activity for a minute. Based on what I read, I added the line app_idle_timeout to the shiny-server.conf file but I notice that it doesn't work. Can someone please advice how I can ensure that the session times out after a minute? Note: I do NOT have shiny server PRO. Below is what my shiny-server.conf looks like. Instruct Shiny Server to run applications as the user "shiny" run_as shiny; # Define a server that listens on port 3838 server { listen 3838; # Define a location at the base URL location / { # Host