shinydashboard

0熱度

1回答

我想創建我的第一個閃亮的應用程序，我試圖讓應用程序繪製兩個簡單的直方圖，但與輸入按鈕讓用戶選擇，如果他想看到兩個並排的直方圖（水平）或一個在另一個下面（垂直）。我試圖在下面寫更多的代碼，試圖向你解釋我的思維過程，而不是實際上希望它能奏效。任何幫助表示讚賞，謝謝！ library(shiny) ui <- fluidPage( radioButtons('layout', 'Layout:'

0熱度

1回答

條件圖shinydashboard

我想知道爲什麼（在下面的代碼中）當我點擊複選框「graph」時圖不顯示？以下是代碼示例。我也想知道是否有可能使用conditionalPanel而不是renderUI來做同樣的事情？ library(shinydashboard) library(shiny) library(plotly) library(ggplot2) # Can set box height from envi

2熱度

1回答

如何在閃亮的儀表板中添加項目名稱以外的徽標？

請您可以幫我添加公司徽標，除了項目名稱之外，在閃亮的儀表板左上方。我試圖在其他答案中使用代碼在這裏stackoverflow但仍不能解決我的問題。我對HTML和CSS完全無知。這裏是我的代碼： library(shiny) library(shinydashboard) shinyApp( ui = dashboardPage(skin = "green", dashboardHeade

0熱度

1回答

dateRangeInput ui的一部分隱藏在閃亮的儀表板標題下

有沒有辦法讓dateRangeInput的UI完全可見？最小化窗口，點擊日期，出現這種情況： library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( menuItem("Home", tabN

0熱度

2回答

R Shiny，dashboardSidebar在切換時中斷圖形和表格寬度

當切換dashboardSidebar菜單時，圖形和表格（通過R Shiny製作）不會相應地調整它們的寬度。下面是一個標準圖形和表格的例子。初始化應用程序時，圖形和表格會正確填充屏幕，但切換菜單會打破這兩個元素的寬度。這是如何解決的，因此它們的寬度始終都是100％？ library(shiny) library(shinydashboard) library(dygraphs) ui

1熱度

1回答

將圖片添加到RShiny動作按鈕

如何將圖像添加到RShiny動作按鈕？就像一個JPEG文件... shinyUI(fluidPage( titlePanel("Image on button"), sidebarLayout( sidebarPanel( ), # Show a plot of the generated distribution mainPanel(

0熱度

2回答

繪製相同的輸出在兩個tabPanels閃亮

我想繪製兩個單獨的TabBox中閃亮的tabBox內相同的直方圖。我可以在其中一個標籤中繪製數據，但是當我爲其他標籤添加代碼時，它似乎會破壞應用程序。下面是我想要做的一個例子： library(shiny) library(dplyr) data(mtcars) body <- dashboardBody( fluidRow( tabBox( title

0熱度

1回答

sliderInput出現在側邊欄只有當選擇了選項卡

我在下面的模板行創建一個Shinyapp： library(shinydashboard) sidebar <- dashboardSidebar( sidebarMenu(id="tabs", menuItem("Tab1", tabName="Tab1", selected=TRUE), menuItem("Tab2", tabName = "Tab

1熱度

1回答

如何從點擊messageItem

裏面有光澤ui.R得到conditionalPanel，用dashboardPage()工作時，我的dashboardHeader()有一個下拉菜單參考列表： dropdownMenu(type = "messages",.list=Mylist) 凡MYLIST充滿messageItem()的。而是採用dashboardBody()和tabItems()但是，我使用的是這樣的： tags$

0熱度

1回答

如何調節表的重新計算，以在RShiny應用的actionButton點擊

我有以下幾個非常簡單的應用程序 funSolver <- function(server,currencyList,tenorList,tailList) { return(do.call(rbind,lapply(currencyList,function(ccy) { return(do.call(rbind,lapply(tenorList,function(tenor) {