shinydashboard

Creating drill down report in R Shiny

﹥>﹥吖頭↗ 提交于 2019-12-20 20:01:10
问题 I am trying to display a data table with 'n' number of columns as shown below Begin Date | EndDate | Month | Year | Count of Students 2/1/2014 | 1/31/2015 | Jan | 2014 | 10 3/1/2014 | 2/28/2015 | Feb | 2014 | 20 4/1/2014 | 3/31/2015 | Mar | 2014 | 30 5/1/2014 | 4/30/2015 | Apr | 2014 | 40 I want to make this data table interactive by enabling the drill down/drill through functionality, where a user can click on each of the values in the "Count of Students" field to see the underlying raw data

How can i embed a twitter timeline in a shiny app?

こ雲淡風輕ζ 提交于 2019-12-20 15:21:17
问题 Having difficulty embedding a twitter timeline into a shiny app. tried to follow this code library(shiny) runApp(list(ui = fluidPage( tags$head(tags$script('!function(d,s,id){var js,fjs=d.getElementsByTagName(s) [0],p=/^http:/.test(d.location)?\'http\':\'https\';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+"://platform.twitter.com/widgets.js";fjs.parentNode.insertBefore(js,fjs);}}(document,"script","twitter-wjs");')), titlePanel(""), sidebarLayout( sidebarPanel() ,

Shiny: calculate cumsum based on dygraphs' RangeSelector

蓝咒 提交于 2019-12-20 04:55:30
问题 I'm building a shiny app where I want to plot a dataset with one of the variables being a cumulative sum of another variable. The latter needs to be re-calculated every time the start date of dygraphs ' dyRangeSelector changes. Below is a basic code without cumsum calculations. Commented out code is what I tried, with no success. library(shinydashboard) library(stringr) library(zoo) library(dplyr) library(dygraphs) ui <-dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody(

HTML page inside Shiny dashboard

时光怂恿深爱的人放手 提交于 2019-12-19 10:44:10
问题 My question is simple for some but difficult for others (like me). I have a Shiny Dashboard in wich I want to add an html page inside a menuItem (Se connecter) to log in Otherwise if you have any suggestions to do so using Shiny I'll be pleased PS : I have a web service to log in so all I want is ideas to have a good looking, stylish login page or panel 回答1: Maybe you can iframe it into your dashboard? rm(list = ls()) library(shiny) ui <- fluidPage(titlePanel("Some Iframe"), mainPanel

R shinydashboard: display progress bar while loading data (fread)

﹥>﹥吖頭↗ 提交于 2019-12-19 07:50:31
问题 I'm creating a R shinydashboard with a big database that takes a while to load. Is it possible to create a progress bar that displays the information of the amount of data that has been read? (e.g., "Read X% of Z rows")? 回答1: R cannot tell you how many rows are in your data until the initial load is complete (I think). However, you can use the built in Shiny progress bar to give your users a message that the data is loading: x<-list.files() data<-data.frame() withProgress(message = 'Reading

R shinydashboard: display progress bar while loading data (fread)

对着背影说爱祢 提交于 2019-12-19 07:50:02
问题 I'm creating a R shinydashboard with a big database that takes a while to load. Is it possible to create a progress bar that displays the information of the amount of data that has been read? (e.g., "Read X% of Z rows")? 回答1: R cannot tell you how many rows are in your data until the initial load is complete (I think). However, you can use the built in Shiny progress bar to give your users a message that the data is loading: x<-list.files() data<-data.frame() withProgress(message = 'Reading

Adjust height of the whole header bar in dashboardHeader in shiny dashboard

空扰寡人 提交于 2019-12-19 04:45:15
问题 I have seen that there is a similar question here : Adjust height of dashboardheader in shinydashboard but I don't have the reputation to comment on the given answer. The solution given to this answer will work in the case where I want to expand the size of the header. However when I reduce the size to 20 pixels this only changes the height of the title section of the header, I would like to reduce the height of the whole header bar in the shiny dashboard. Is this possible ? Here is an

Hide an element (box/tabs) in shiny dashboard

走远了吗. 提交于 2019-12-19 04:22:18
问题 I have a shiny dashboard which has a just a single text box on the landing page. The user enters an emailid which displays relevant data. This works fine. However I need a box/ tab Panel that greets the user on reaching the page and disappears when the user begins to enter text(emailid) in the text input. Is this possible? output$introbox=renderUI(box(h3("Welcome to the page. Please enter your email id to proceed")), conditionalPanel(condition=input.emailid=="") The box is displayed on

How to stop running shiny app by closing the browser window?

十年热恋 提交于 2019-12-18 12:20:23
问题 I have deployed an app in shinyapps.io and its working fine. I am running the app for only 5 minutes, but when I checked the metrics it shows a running time for about 0.7 hours. I found that there is a default idle time of 15 minutes, which I have changed to 5 minutes (minimum). I also noticed that, even after closing the browser window of the shiny app, it still shows the app as running in my dashboard. I assume that the app doesn't stop running when a browser window is closed and it will

How to stop running shiny app by closing the browser window?

空扰寡人 提交于 2019-12-18 12:19:59
问题 I have deployed an app in shinyapps.io and its working fine. I am running the app for only 5 minutes, but when I checked the metrics it shows a running time for about 0.7 hours. I found that there is a default idle time of 15 minutes, which I have changed to 5 minutes (minimum). I also noticed that, even after closing the browser window of the shiny app, it still shows the app as running in my dashboard. I assume that the app doesn't stop running when a browser window is closed and it will