shiny

    0熱度

    1回答

    我正在嘗試創建一個儀表板,其中不同的主體出現在不同的選項卡上。但是,下面的代碼不起作用。標籤創建時,標籤中沒有任何內容出現。如果我將tabName更改爲一個字符串(例如menuItem(name_dataset [1],tabName =「data1」)),則正文內容會顯示在每個選項卡中。 這是爲什麼?爲什麼我不能使用tabName的變量而不是原始字符串? #SHINY DASHBOARD: UI

    0熱度

    1回答

    我正在嘗試使用Shiny構建類似數據透視表的UI的Excel,其中用戶可以選擇多個字段作爲行標題和一個字段作爲列標題。 我正在使用dcast創建數據透視表並在Shiny應用程序中顯示最終輸出。 我面臨的問題是,如果我不知道用戶將選擇多少列(因爲允許多個選擇),我該如何使用dcast? 基本上我想有這樣的事情: dcast(data_table,列1 +列2 + ... + ColumnN〜Colu

    0熱度

    1回答

    我有一個對話框,我需要在服務器端創建,因爲是一個對話框,我嵌入在一個DT。 爲什麼我創建這個問題的原因是因爲我在我的對話框如下: observeEvent(input$show, { showModal(modalDialog( title = "Select location:", uiOutput('select.file'), # plotOut

    0熱度

    1回答

    在我的Shiny應用程序中,我有一個看起來像這樣的dateRangeInput小部件。 1)我想增加盒中的日期的大小和文本從大膽改變正常。 2)另外,我想增加小部件標題和小部件輸入之間的空間,以增加(wellPanel)的高度。我可以使用width函數控制寬度,但似乎無法修改其高度。 我不是CSS專家,所以我很難修改它。 這是我的嘗試從ui.R,這似乎並不奏效。 column(wellPanel(

    2熱度

    1回答

    我使用shinydashboard,我希望把圖像中的標題用下面的代碼: header <- dashboardHeader( title = div(img(src = 'logo.png', height = 60, width = 120)) ) 一切順利,但是當我通過Chrome中打開的應用程序,在我的瀏覽器標籤中,它看起來像下面那樣很奇怪。

    0熱度

    1回答

    在我的Shiny App中,我包含了一個以開始和結束日期爲輸入的dateRangeInput。 我也有另一個selectInput UI元素,其採用輸入(從該交除外) 從ui.R column(wellPanel( tags$style('.input-sm {font-size: 20px; } label {font-weight: 500; margin-bottom: 30px; }'),

    1熱度

    1回答

    我有一個包含Highcharter圖的Shiny應用程序。該圖是分散的,並且具有可拖動和可點擊的點。與拖動相關的操作在理論上應與與點擊相關的操作相互排斥。 但是,在實踐中,點擊動作有時會在點拖動時觸發。單擊(沒有拖動)和拖動(這應該排除鼠標按鈕的釋放和拖動操作完成之前的點擊能力)需要在此應用程序中相互排斥。我的完整代碼根據事件的類型將不同的JavaScript操作傳遞迴Shiny服務器。兩起事件共

    1熱度

    1回答

    我想創建多個fileInput函數來允許用戶上傳文件。我創建多個上傳小部件的主要原因是因爲我想讓用戶通過不同的路徑上傳。我在這裏想要完成的是循環遍歷所有的fileInputs並將所有文件保存到一個數據框中,但無法在我的代碼中執行。 library(shiny) library(data.table) library(DT) n_attachments <- sprintf("file%s"

    1熱度

    1回答

    我有一個Shiny應用程序,主應用程序頁面需要公開,但下載數據文件需要通過登錄進行身份驗證。理想情況下,用戶可以選擇下載參數(他們希望包含哪些變量等),並且不會要求他們登錄,直到他們實際點擊「下載」按鈕。 我在這個主題上看到的每個問題都討論瞭如何根據登錄憑證製作不同的應用程序版本,但這些都需要初始登錄,所以它們不適用。 我的想法是創建兩個獨立的應用程序,與「下載」按鈕鏈接到第二個應用程序。但是,這

    0熱度

    1回答

    我有一個閃亮的應用程序,可以在其中加載文件。我不想從我的文件中提取最小和最大日期範圍,將它們用作滑塊輸入的輸入。 這裏是我迄今爲止 ui <- fluidPage( dateRangeInput(inputId = "date", label = "Input a date range", start=textOutput("datemin") , end = textOutput("datema