Shiny

问题 I'm building a Shiny application and some of my users (not very familiar with this kind of layout) don't understand that the application works with tabs and they just don't see where to go from the Homepage. That's why I want to display a big infography on the main page, and when they click on it, it automatically activates the second tab. I know how to add a link to an image: tags(a(img(src="image.png"), href="link.com")) And I know how to programmatically select a different tab:

问题 I would like your help to access the result elements that the reactiveFileReader function offers me, in which case the result is fileData () The server code is this: server <- function(input, output,session) { fileData <- reactiveFileReader(1000,session,filePath = 'ddeLink.xlsm', readFunc = read_excel) output$data <- renderTable({ fileData() }) } The excel spreadsheet linkdde.xslm every five minutes updates. It is composed of 2 columns where only column b is updated. The excel file bellow:

问题 I would like your help to access the result elements that the reactiveFileReader function offers me, in which case the result is fileData () The server code is this: server <- function(input, output,session) { fileData <- reactiveFileReader(1000,session,filePath = 'ddeLink.xlsm', readFunc = read_excel) output$data <- renderTable({ fileData() }) } The excel spreadsheet linkdde.xslm every five minutes updates. It is composed of 2 columns where only column b is updated. The excel file bellow:

问题 I created an R Shiny application that I'd like to share with my co-workers within my network. I tried hosting the app on my computer so that other users from the network could access it and use it with their data files. I tried: runApp("appname",host="0.0.0.0",port=3986) And also: runApp("appname",host="DNSMachinename") The latter attempt resulted in the following error: While my colleagues are able to acceess the app, it doesn't really run like it does on my machine. Thanks for the help. 回答1

问题 I created an R Shiny application that I'd like to share with my co-workers within my network. I tried hosting the app on my computer so that other users from the network could access it and use it with their data files. I tried: runApp("appname",host="0.0.0.0",port=3986) And also: runApp("appname",host="DNSMachinename") The latter attempt resulted in the following error: While my colleagues are able to acceess the app, it doesn't really run like it does on my machine. Thanks for the help. 回答1

问题 I'm creating a simple line chart which renders correctly in Shiny. I've now added a selectInput with the names of 2 different measures, written as they appear in my data set. I'd like my y variable to change accordingly. p <- plot_ly(data = LineChartData(), x= Calendar.Month, y = input$Measure, type = "line", group = Calendar.Year, col = Calendar.Year) Unfortunately, the chart renders with just one point. It's not taking input$Measure and finding that field in my data set. I know when using

问题 library(shinyjs) library(plotly) library(shinydashboard) library(shinycssloaders) library(shiny) library(dplyr) library(DT) library(tidyr) library(shinycustomloader) library(tibble) library(datapasta) COL = c("#293a80","#39375b","#6915cf","#4b8e8d","#d55252","#293462","#940a37","#f54291","#f0134d","#b22222","#3c4245","#5d1451","#3c3d47") ui<- fluidPage( fluidRow(column(width=12, withLoader(plotlyOutput("plott1"),type = "html",loader = "loader4"))), fluidRow(column(width=12, withLoader

问题 I'm trying to build an app, which is doing something similar to this post. I want point coordinates to be copied to a clipboard by every click. I've just copied it as an example with a small modification in observeEvent . library(shiny) library(dygraphs) library(clipr) ui = fluidPage( mainPanel( dygraphOutput("dygraph"), br(), textOutput("clicked", inline = TRUE) ) ) server = function(input, output) { output$dygraph <- renderDygraph({ dygraph(ldeaths) }) output$clicked <- renderText({

问题 I'm trying to build an app, which is doing something similar to this post. I want point coordinates to be copied to a clipboard by every click. I've just copied it as an example with a small modification in observeEvent . library(shiny) library(dygraphs) library(clipr) ui = fluidPage( mainPanel( dygraphOutput("dygraph"), br(), textOutput("clicked", inline = TRUE) ) ) server = function(input, output) { output$dygraph <- renderDygraph({ dygraph(ldeaths) }) output$clicked <- renderText({

问题 I have a data frame like below: df <- data.frame(child = c('item3-1-1','item3-1-2','item3-2','item3-1','item2-1','item2-2','item1'),parent = c('item3-1','item3-1','item3','item3','item2','item2','')) I want to convert this dataframe in below format: choices <- list( list(id = 1, title = "item1"), list(id = 2, title = "item2", subs = list( list(id = 21, title = "item2-1"), list(id = 22, title = "item2-2") ) ), list(id = 3, title = "item3", subs = list( list(id = 31, title = "item3-1",