shinydashboard

How to display widgets inline in shiny

為{幸葍}努か 提交于 2019-11-28 23:11:59
I have the below code to display the widgets inline(in same row) in shiny div(style="display:inline-block; width: 150px;height: 75px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')), div(style="display:inline-block; width: 150px;height: 75px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5)) It is coming out in UI, but not in the same line order. one in coming in the upper side and other is coming on the lower side one the same line. Is there a way to correct this misalignment? Add vertical-align:top to your style rm(list = ls())

How to get Leaflet for R use 100% of Shiny dashboard height

一曲冷凌霜 提交于 2019-11-28 18:09:58
I am in the process of creating a Shiny dashboard application, where the dashboard body is supposed to show some maps. So far no problem to get the map expand over the entire width of the body, but it's somehow not willing to adjust to the full height. The leaflet itself is already set to cover 100% of the height, but it doesn't do the trick. As soon as I use the height attribute for the leafletOutput the leaflet object will not show at all, and I am left with an empty box. The code can be found below: library(shinydashboard) library(leaflet) ui <- dashboardPage( dashboardHeader(title = "Basic

How to change color in shiny dashboard?

故事扮演 提交于 2019-11-28 15:55:31
(cross post from shiny google groups) Could some one point me to the tag names that I have to modify the color of a shiny dashboard? Modified from http://rstudio.github.io/shinydashboard/appearance.html#long-titles this will change the top left corner of my dashboard to orange tags$head(tags$style(HTML(' .skin-blue .main-header .logo { background-color: #f4b943; } .skin-blue .main-header .logo:hover { background-color: #f4b943; } '))) It is unclear to me how to change the rest of the header and sidebar to orange, and how I can change the color when an item on the "SideBarMenu" is selected /

Usage of UIOutput in multiple menuItems in R shiny dashboard

混江龙づ霸主 提交于 2019-11-28 14:30:34
The R shiny script below displays "output$brand_selector" output in subItem1. I wish to display the same output in subItem2 and subItem3. Please help, also when I open the dashboard, the output is present by default, I wish to make it appear only when I click on a subItem, thanks and please help. candyData <- read.table( text = " Brand Candy value Nestle 100Grand Choc1 Netle Butterfinger Choc2 Nestle Crunch Choc2 Hershey's KitKat Choc4 Hershey's Reeses Choc3 Hershey's Mounds Choc2 Mars Snickers Choc5 Nestle 100Grand Choc3 Nestle Crunch Choc4 Hershey's KitKat Choc5 Hershey's Reeses Choc2

Display the selectInput value in a R shiny widget box

﹥>﹥吖頭↗ 提交于 2019-11-28 13:03:37
问题 Please run the R shiny script below, I wish to display the selectInput value in the third selectInput option in the infoBox widget and replicate the same functionality for all the tabs below. Currently it is hard coded, the script has been written using shiny modules, so kindly check. Attaching the snapshot for reference, please help. candyData <- read.table( text = " Brand Candy value Nestle 100Grand Choc1 Netle Butterfinger Choc2 Nestle Crunch Choc2 Hershey's KitKat Choc4 Hershey's Reeses

Using similar UI script in R shiny under multiple subMenuItems

我怕爱的太早我们不能终老 提交于 2019-11-28 12:48:24
问题 the given R shiny script creates a dropdown menu in the sidebar with main and sub menu items. When you click on the first sub-item 1, you get two selectInputs in the dashboardBody. I want a functionality where I just declare these inputs once and use it multiple times in the other sub-items, just like how reactive function does.I want to do this to make the script fast and efficient. I have less knowledge of reactive functionality, please help and thanks. library(shiny) library(shinydashboard

shinydashboard some Font Awesome Icons Not Working

元气小坏坏 提交于 2019-11-28 09:18:28
When using shinydashboard I find that some icons seem to work while some don't. In the below example, the battery-full icon doesn't work while the clock-o icon works fine. I'm unable to figure out why this should happen. library(shiny) library(shinydashboard) header <- dashboardHeader(title="Some Icons Not Working?") # No sidebar -------------------------------------------------------------- sm <- sidebarMenu( sm <- sidebarMenu( menuItem( text="asdf", tabName="asdfasdf", icon=icon("battery-full")), menuItem( text="qwer", tabName="qwerqwer", icon=icon("clock-o")) ) ) sidebar <- dashboardSidebar

Drawing journey path using leaflet in R

女生的网名这么多〃 提交于 2019-11-28 08:17:23
问题 I am creating a Shiny dashboard with a dataframe of start longitude/latitude and end longitude/latitude cooridnated that I have plotted in R using the leaflet package : `m=leaflet()%>% addTiles() %>% addMarkers(lng=(data$Start_long[i:j]), lat=(data$Start_lat[i:j]),popup="Start") %>% addCircleMarkers(lng=(data$End_long[i:j]), lat=(data$End_lat[i:j]),popup="End",clusterOptions=markerClusterOptions())` I was wondering if there was a way to join the start and end coordinated by public transport

Starting Shiny app after password input (with Shinydashboard)

人盡茶涼 提交于 2019-11-28 07:04:59
In this topic is well explained how to start the shinyapp after some password input. I am trying to do the same, but instead of "navbarPage", I would like to have a "dashboardPage". I tried to change the argument in do.call function form 'navbarPage' to 'dashboardPage', but the app crashes. rm(list = ls()) library(shiny) Logged = FALSE; my_username <- "test" my_password <- "test" ui1 <- function(){ tagList( div(id = "login", wellPanel(textInput("userName", "Username"), passwordInput("passwd", "Password"), br(),actionButton("Login", "Log in"))), tags$style(type="text/css", "#login {font-size

Shiny server session time out doesn't work

生来就可爱ヽ(ⅴ<●) 提交于 2019-11-28 06:38:55
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