shinydashboard

Adjust height of dashboardheader in shinydashboard

由 六眼飞鱼酱① 提交于 2019-12-18 09:37:36
问题 I would like to know how can I adjust the height of dashboardheader in shinydashboard dashboardHeader( title = loadingLogo('http://company.fr/','logo.jpg','buffpowa.gif'), titleWidth = 600 ) I can modify the width but the logo is too large for the header. I want the header to have enough height to display the full logo. Thanks 回答1: You need to set the height of the following elements: .main-header and .main-header .logo . Also please note that it only works if they are set inside tags$li

Passing data within Shiny Modules from Module 1 to Module 2

由 杀马特。学长 韩版系。学妹 提交于 2019-12-18 04:42:19
问题 I dont have a reproducible example as the question is more on how modules work. I am trying to understand how to pass some reactive function from one module to the next. I have received replies in the past about using ObserveEvent but they have not seem to work when I am using the reactive value in one module to perform some other operation in another module module1 <- function(input, output, session){ data1<-reactive({ #some reacttive funcion that produces an output }) data2<-reactive({

Filter one selectInput based on selection from another selectInput?

由 天大地大妈咪最大 提交于 2019-12-17 22:53:35
问题 I have two selectInput s, and I would like the selection in the first one (Brand) to change the possible selections in the second one (Candy). So, for example, if someone chose "Nestle" in the first input box, then only Nestle candy bars will show up in the second box. My data table has a column for Brand and a column for Candy bar type. I have the following code to start, but this shows ALL of the choices, regardless of the selection. selectInput(inputId="brand", label="Brand:", choices=as

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

由 与世无争的帅哥 提交于 2019-12-17 22:33:39
问题 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

disabling/enabling sidebar from server side

由 寵の児 提交于 2019-12-17 19:46:31
问题 Is there any way to manually disabling/enabling the sidebar on shiny dashboard app from the server side? I would like to hide the sidebar automatically when I need more space without using toggle button on the header. Thank you 回答1: I'm not very familiar with dashboards as I never built one, but from a taking a quick look, it seems like when clicking on the open/hide sidebar button, all that happens is a sidebar-collapse class gets added/removed to the <body> tag. Maybe more things happen

How to manually collapse a box in shiny dashboard

由 十年热恋 提交于 2019-12-17 19:46:29
问题 I'm trying to collapse a box manually when something happens. It seems that I only need to add the class "collapsed-box" to the box, I tried to use the shinyjs function addClass , but I don't know how to do that becuase a box doesn't have an id . Here as simple basic code that can be used to test possible solutions: library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( box(collapsible = TRUE,p("Test")), actionButton("bt1", "Collapse") ) ) server <-

Starting Shiny app after password input (with Shinydashboard)

由 非 Y 不嫁゛ 提交于 2019-12-17 18:24:36
问题 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",

Adding a company Logo to ShinyDashboard header

由 荒凉一梦 提交于 2019-12-17 10:26:39
问题 So just curious, is there any way to add a company logo to the header of a ShinyDashboard? As I am looking at the documentation, it describes changing the "logo" in the CSS, this is just configuring what goes in the upper left hand corner though as far as I can tell and I would like to keep my title there. I am not using the drop down menus and so I would like to add my company logo on the top right where the red box is. Does anyone have any idea how this can be done with Shinydashboard?

in R shiny, how to fix error in sourcing app as nothing changes when clicking on action button?

由 帅比萌擦擦* 提交于 2019-12-17 10:06:47
问题 Building on multiple stackoverflow questions, I tried to build this app which contain two action buttons the first one shows datatable the second one should open another sourced app but actaully nothing changes but in the global environment all list, functions and dataframes are reflecting. the used code. UI.R-------------------------------- library(shiny) library(shinydashboardPlus) library(DT) library(readxl) library(dplyr) library(formattable) library(shinydashboard) library(shinyjqui)

How to do autofill of data in shiny app using excel file

由 こ雲淡風輕ζ 提交于 2019-12-14 04:05:18
问题 I am trying to read a data set using the browse option to upload data from pc. After that, I want to display file content to be automatically filled by using first column entry. library(shiny) library(shinydashboard) ui<-(fluidPage( titlePanel("Auto Fill"), sidebarPanel( autoFillDF<- fileInput('file1', 'Choose xlsx file', accept = c(".xlsx")), # actionButton("go", "update"), selectizeInput("p1", choices = autoFillDF$WorklistNo, selected = NULL, label = 'WorklistNo'), selectizeInput("p2",
订阅 shinydashboard