shiny

    1熱度

    1回答

    我有一個簡單的玩具示例,使用add/removeBtn模塊來添加和刪除「第一個」模塊的UI。我需要跟蹤添加/刪除被點擊的次數。如果我不使用模塊,這很容易,但我試圖在嵌套模塊的上下文中執行此操作。代碼在下面,但基本上,我似乎無法訪問主服務器函數中addRmBtnServer()的返回值。我相信這是一個簡單的修復,但我已經嘗試了很多方法,但似乎無法訪問我對addRmBtnServer()的調用結果。謝

    1熱度

    2回答

    我正在製作一個Shiny應用程序,在點擊actionButton時,使用插入程序包訓練模型。由於此次培訓需要時間 - 大約4-5分鐘 - 我想在應用中顯示加載標誌或加載GIF,在該模型訓練後顯示結果。否則,用戶將不知道發生了什麼或模型何時被訓練。 謝謝

    0熱度

    1回答

    這如果我的第一個閃亮的應用程序,我一直在試圖調試幾天 - 我試圖創建一個閃亮的應用程序,顯示國家的平均死亡率對全國平均水平使用線圖。每當我運行應用程序時,用戶界面閃爍,頁面變爲空白。我確實收到2條錯誤消息。任何建議將不勝感激 ui.R library(shiny) url < "https://raw.githubusercontent.com/indianspice/IS608/master/

    0熱度

    1回答

    有誰知道如何在shinyserver.log [33m[2017-10-05 21:38:28.591] [WARN] shiny-server - ESC[39mError handling message: Error: Robust protocol error: Expected CONTINUE message ESC[33m[2017-10-05 21:39:35.380] [WAR

    0熱度

    1回答

    所以基本上我正在嘗試做一些排序的小設置,並且一旦完成了特定的分析,我想將某個數據集導出到預定義的位置和預定義的名稱(基於之前選擇的輸入)。爲此,我使用了動作按鈕,點擊時這樣做, observeEvent(input$export_button, { write.csv(input_dummy_data4ads,paste0("Dummy Files/",unique(input_dum

    0熱度

    2回答

    我想輸出多個表作爲一個uiOutput。如果我使用循環將它們放在一個列表中,那麼所有輸出都等於最後一個。 實施例: library(shiny) ui <- fluidPage( mainPanel( uiOutput("tables") ) ) server <- function(input, output) { output$tables <- rend

    1熱度

    1回答

    我正在使用Shiny Dashboard中的DT包構建表格。該表有幾列,我使用DT的ColVis功能,允許用戶隱藏/只顯示他們感興趣的列。 我的問題是 - 是否可以更改這些按鈕的顏色一旦列可見性按鈕被點擊了嗎?到目前爲止,顏色並沒有足夠的差異,很難分辨哪些列是可見的,哪些列沒有導航到表格。我已經添加了一張顯示我的意思的截圖。 The Site_ID column is not visible in

    0熱度

    1回答

    所以我的Shiny應用程序顯示代碼。我想要顯示格式化的代碼,所以我使用高亮js庫。我得到這個在模態窗口外面工作,但不在裏面。 modalDialog函數似乎不接受我的CSS和JS輸入。 的代碼塊的是,工作沒有一個模式窗口: library(shiny) shinyApp( ui = basicPage( includeScript("/Users/stani/GitHub/bam

    0熱度

    1回答

    我想知道是否有可能在閃亮時創建類似「selectIcon」的東西。我想選擇只有圖標或例如顏色。 selectizeInput('colours', '', choices = c("blue", "red"), selected = "blue") 但是英語單詞「藍色」和「紅色」我想顯示彩色正方形。選定的選項也應該如此。假設我有我所有選項的.png文件。我如何在

    1熱度

    1回答

    我想添加selectizeInput()與我的閃亮的應用程序中的標題在一行。此外,我想將標題對齊左側,並且selectizeInput()向右。 我嘗試這樣做: shinyUI(fluidPage( theme = shinytheme("simplex"), titlePanel(title = div(div(style = "display: inline-block; "