Tag: shiny
绑定的JavaScript（d3.js）shiny
首先，我对JavaScript和它的库d3.js相当不熟悉，但是我对R很熟悉。使用Shiny创build仪表板非常有趣和简单（感谢stackoverflow）。 现在我想通过连接d3元素来扩展它。 我正在寻找信息来源，关于如何实际绑定到shiny（R仪表板）的JavaScript和解释实际发生了什么。 背景：我在w3schools上做了关于js和jquery的教程，并且使用Scott Murray的书（交互式数据可视化为web）了解了d3。 我希望这足以让我理解有关如何在Shiny网站上构build自定义input/输出绑定的示例和解释： http://shiny.rstudio.com/articles/building-inputs.html 但不幸的是，我没有，我似乎无法find任何在最小工作代码的例子。 github上的很多例子对于我来说很复杂，很可能是因为我对javascript的一点经验。 以下是使用javascript自定义input绑定的示例： https://github.com/jcheng5/shiny-js-examples/tree/master/input 下面是我尝试展开的一个input和输出绑定的示例： <script src="../d3.v3.js"></script> <script type="text/javascript"> (function(){ // Probably not idiomatic javascript. this.countValue=0; // BEGIN: FUNCTION updateView = function(message) { var svg = d3.select(".d3io").select("svg") svg.append("text") .transition() .attr("x",message[0]) .attr("y",message[1]) .text(countValue) .each("end",function(){ if(countValue<100) { countValue+=1; $(".d3io").trigger("change"); } }) } // END: FUNCTION //BEGIN: OUTPUT BINDING var d3OutputBinding […]
在RStudioshiny的情节的规模和大小
相关，但是一般只讨论分配的绘图空间，而不是如何直接设置绘图的图像大小， 然后将其缩放以填充所需的空间 shiny的图表空间分配 我正在创build一个shiny的Web应用程序，并希望设置的大小的情节和规模。 我的意思是我正在寻找一种方法来为我的情节设置一个有限的高度/宽度， 然后将设置大小的图像缩放到mainPanel( plotOutput ())区域。 以此作为示例/ shiny之外的类似情况。 x <- 1:10 y <- x^2 png("~/Desktop/small.png", width = 600, height = 400) plot(x, y) dev.off() png("~/Desktop/big.png", width = 1200, height = 800) plot(x, y) dev.off() 我无法将图像上传到SO并设置大小，因此我将包含每个使用以下html的浏览器截图： <img src="file:///home/jwhendy/Desktop/file.png" width = "800px" /> 这是我的1600 x 900像素笔记本电脑全宽屏幕截图。 小 大 我想控制图像本身的大小，因为当使用像colour = var和size = var这样的选项时， ggplot2图例非常小。 请注意阅读更大图片的轴标签的难度。 […]
使用R / Shiny创builddynamic数量的input元素
我正在写一个Shiny的应用程序，在我的公司可视化保险福利计划。 这是我想要发生的事情： 我将有一个selectInput或sliderInput ，用户将select他们的医疗计划中的个人数量 将出现匹配数量的双面滑块（每个成员一个） 然后，他们可以input他们对每个成员的最佳/最坏情况医疗费用的估计 我有代码，将采取这些估计和创build并行的情节说明三个计划产品的预测成本，所以他们可以决定哪一个是最便宜的根据他们的估计 这是我目前的ui.R文件，硬编码input，模拟一个四口之家： shinyUI(pageWithSidebar( headerPanel("Side by side comparison"), sidebarPanel( selectInput(inputId = "class", label = "Choose plan type:", list("Employee only" = "emp", "Employee and spouse" = "emp_spouse", "Employee and child" = "emp_child", "Employee and family" = "emp_fam")), sliderInput(inputId = "ind1", label = "Individual 1", min = 0, max = 20000, value […]
托pipe和build立自己的shiny的应用程序没有发光的服
我试图让我的同事可以使用shiny的应用程序，而不必运行，甚至没有R安装。 所以我读了这个wegpage http://shiny.rstudio.com/tutorial/lesson7/ ，发现这句话： ' 如果您熟悉虚拟主机或可以访问IT部门，则可以自行托pipeShiny应用程序。 在“ 以网页共享 ”的方式下。 我想知道是否有人可以指点我一些关于这个话题的帮助？ 像最低要求（甚至是教程）。 问题是，我的公司必须对networking托pipe和安全等一些限制，并不会（现在）支付一个shiny-server-pro。 但是上面的这句话给了我希望自己设置一些东西来说服他们。 谁能帮忙？
使用D3和Shiny在R中实现`identify（）`
我问了一个关于如何根据用户交互进行dynamic绘图的问题 ，其解决scheme在我的机器上运行得非常好。 现在我想制作一个在线版本，并使用Shiny进行托pipe。 我已经尝试将代码放入server.R并调用reactivePlot() server.R iden()函数，但是identify()的部分不起作用。 那么，这个任务有什么提示？
保存在一个shiny的应用程序进行绘图
我想弄清楚如何使用downloadButton来保存与shiny的情节。 包中的示例演示了downloadButton / downloadHandler以保存.csv。 我将基于此做出一个可重复的例子。 对于ui.R shinyUI(pageWithSidebar( headerPanel('Downloading Data'), sidebarPanel( selectInput("dataset", "Choose a dataset:", choices = c("rock", "pressure", "cars")), downloadButton('downloadData', 'Download Data'), downloadButton('downloadPlot', 'Download Plot') ), mainPanel( plotOutput('plot') ) )) 对于server.R library(ggplot2) shinyServer(function(input, output) { datasetInput <- reactive({ switch(input$dataset, "rock" = rock, "pressure" = pressure, "cars" = cars) }) plotInput <- reactive({ df <- datasetInput() […]
将图像embedded到shiny的应用程序中
我一直在做一个shiny的应用程序，并希望在应用程序的右上angular包含一个标志。 我怎样才能轻松地使用shiny和rembedded图像？ 谢谢！ ķ
dynamic创build带有shiny图的标签，而无需重新创build现有标签
我想创builddynamic标签，每当用户点击一个button，一个新的标签将被创build。 每个选项卡具有相同的内容，用户可以使用各种小部件来select要绘制哪组数据。 目前，我在这里使用的解决scheme来dynamic创build我的标签，但随着lapply正在调用一个函数调用tabPanel，并添加内容到标签 ` renderUI({ some_data <- # Dataframe that data is extracted goes here createTabs <- function(tabNum, some_data) { tabPanel(title = paste("Map", tabNum, sep=" "), fluidRow( column( width = 3, wellPanel( #widgets are added here } mTabs <- lapply(0:input$map, createTabs, some_data) do.call(tabsetPanel, mTabs) }) ` 这里的for循环的方法在这里发布，以在每个选项卡上创build图表。 但是，似乎不是创build一个新的选项卡，上述两个解决scheme都重新创build所有现有的选项卡。 所以如果当前有10个标签打开，所有10个标签都会被重新创build。 不幸的是，这也会重置每个选项卡上的所有用户设置（除了减慢应用程序的运行速度），还必须执行额外的规定，这会进一步减慢应用程序的速度，因为必须创build大量的input对象。 我看到一个菜单项的解决scheme似乎解决了这个问题，只需将所有的菜单项存储在一个列表中，每当生成一个新的菜单项时，它就被简单地添加到列表中，需要创build。 是这样的标签和渲染情节的可能吗？ 这是代码： newTabs <- […]
R Shiny – 将tabPaneldynamic添加到tabsetPanel（使用renderUI）
我正在开发一个shiny的应用程序，我使用tabsetPanel ，这是用户input一些特定的input时生成的。 因此，我想使用renderUI函数使tabsetPanel出现/消失。 我现在的挣扎是tabPanel元素（ tabsetPanel参数）的数量也取决于用户input ，方式：有时我需要1个，其他时候我想要更多的tabPanels 。 如何做到这一点？ 我尝试了包括conditionPanel或在tabsetPanel参数中包含简单的if()…条件，但它（而不是奇怪…）没有工作。
Rshiny传递反应selectInputselect
在一个shiny的应用程序（通过RStudio），在服务器端，我有一个反应，通过parsingtextInput的内容返回一个variables列表。 然后在selectInput和/或updateSelectInput使用variables列表。 我无法做到这一点。 有什么build议么？ 我做了两次尝试。 第一种方法是将react nativeoutVar直接用于selectInput 。 第二种方法是使用updateSelectInput的react nativeoutVar 。 两者都行不通。 server.R shinyServer( function(input, output, session) { outVar <- reactive({ vars <- all.vars(parse(text=input$inBody)) vars <- as.list(vars) return(vars) }) output$inBody <- renderUI({ textInput(inputId = "inBody", label = h4("Enter a function:"), value = "a+b+c") }) output$inVar <- renderUI({ ## works but the choices are non-reactive selectInput(inputId […]
