shiny

    2熱度

    1回答

    我想讓閃亮的對數滑塊變得靈活一些,但是我遇到了一些問題。當通過網上搜索我發現有一個滑塊可以通過腳本改爲對數例如是這樣的:通過標籤渲染滑塊之前 sliderLogarithm <- "$(function() { setTimeout(function(){ var vals = [0]; var powStart = -2.0; var powStop = 0.01; for (i =

    1熱度

    2回答

    A bsModal在shiny應用程序中的窗口帶有默認的Close按鈕。有沒有可以禁用的方法?我試圖尋找類似的問題SO,但沒有找到一個符合我的要求。我想,如果用戶可以使用右上角的關閉窗口X按鈕,則不需要另一個Close按鈕。請指教。以下重複代碼將生成樣本bsModal窗口來了解我的問題。 library(shiny) library(shinyBS) if(interactive()){

    1熱度

    1回答

    我正嘗試在我的閃亮應用中積極地使用交互式視覺效果。但是,在嘗試向圖形添加自定義工具提示時,我遇到了一個問題。如果我在ggplotly()中設置了tooltip參數,那麼我的輸出中將忽略我的geom_line(),但工具提示工作正常。 這裏是一個MRE: library(shiny) library(ggplot2) library(plotly) library(tidyquant) #on

    1熱度

    1回答

    我創建了一個數據框(df),並用閃亮的R中的第一行填充了數字。現在我想查看數據中每個可變元素的索引當我上傳一個文件時,在下拉列表框中。換句話說,我想用索引來選擇元素而不是列名。我知道這可能看起來很奇怪,但我真的需要幫助。我的樣本代碼如下: **ui.R** shinyUI(fluidPage( titlePanel(""), sidebarLayout( sidebarPanel(

    0熱度

    1回答

    美好的一天它可能在這裏顯示標籤? 這是barPlot。 output$bar<-{(renderPlot(barplot(data_percent,names.arg =tableData$Country,col=rainbow(length(tableData$Country)))))}

    0熱度

    1回答

    援助將不勝感激。 我正在研究一個閃亮的應用程序,它涉及多個SQlite數據庫和rhandsontable包的使用。我在網上發現了很多有用的資料,但是我在使用這個軟件包方面遇到了一些挫折,因爲我花了兩天的時間來解決一個我認爲值得問的問題。 所以下面的腳本描述了服務器和rhandsontable的用戶界面。我想能夠使用戶編輯,並安全地修改他們的表格(這是涵蓋了很多網上),但跨越多個表(我正在努力) 我

    1熱度

    2回答

    我正在開發一個Shiny應用程序,它有兩個組件Sankey圖和一個動作按鈕,單擊按鈕時彈出「SaveMsg」對話框。 我看到意外的行爲,其中,如果我在一個儀表板中的用戶actionbutton和Sankeyvisualization,點擊操作按鈕,儀表板屏幕變灰。 但是,如果我評論Sankey代碼並僅保留UI上的Action按鈕,則Action按鈕會按預期顯示彈出消息「save successfu

    1熱度

    1回答

    新learnr封裝states的說明文件 它也可以添加使用閃亮的其他形式的交互性(例如教一個統計概念交互)。 我試過用提供的例子,但我無法管理它。滑塊確實出現,但不是情節。我用: --- title: "Tutorial" output: learnr::tutorial: progressive: true allow_skip: true runti

    2熱度

    1回答

    這是我的previous question的擴展。現在我無法延長我主面板的高度。 這低於 library(shiny) library(shinydashboard) library(shinyBS) library(DT) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarPane

    0熱度

    1回答

    我想預先選擇ggiraph :: renderggiraph()輸出中的某些點。 我可以做如下的閃亮應用程序,它可以讓我選擇點,然後在其他地方使用這些選定的點,像這樣: dat <- data.table(x = 1:6, y = 1:6 %% 3, id = 1:6, status = rep(c('on','off'),3)) ui <- fluidPage( ggiraphOutput(