可以相对轻松地在平面 Shiny 应用程序中使用锚链接 - /sf/answers/2002386221/。

然而，有可能是一个外部链接针对特定tabPanel的navbarPage一个闪亮的应用程序？

考虑以下测试应用程序： UI：

shinyUI(navbarPage(
  "Anchor Test",
  tabPanel(
    "Panel 1", fluidPage(HTML(
      paste(
        "<p>I'm the first panel</p>","<p><a href='#irisPlotUI'>Link to irisPlotUI in panel 2</a></p>",
        "<a href='#panel2'>Link to panel 2</a>",sep = ""
      )
    ))
  ),
  tabPanel("Panel 2", fluidPage(
    "I'm the second panel", uiOutput("irisPlotUI")
  ),
  value = "#panel2"),
  tabPanel("Panel 3", "I'm a table!!!")

服务器：

shinyServer(function(input, output) {
  output$irisPlotUI <- renderUI(plotOutput("irisPlot"))
  output$irisPlot <- renderPlot(plot(iris$Sepal.Length))
  })

使用链接答案中的方法不起作用， idirisPlotUI是正确的，但tabPanel它是情节所在的 id 的子代。

该data-value的 …

问题/ TL; DR

有没有人成功定制gvisTimelineR包中的工具提示内容googleVis

需要范围:

1. 用解释性文本替换工具提示
2. 自定义HTML工具提示,la https://google-developers.appspot.com/chart/interactive/docs/customizing_tooltip_content_875a2af27d7f8cce657119d51bedda48.frame?hl=en&redesign=true

更新:

我特别感兴趣,gvisTimeline但是在googleVis包的其他图表中有很多关于工具提示的存根问题.我正在将这些问题整理到这个问题中供我自己参考,并试图为所有人提供一个有用的资源:

• gvisTreemap- /sf/ask/2162460261/

细节

Google Charts文档清楚地表明,工具提示可以针对时间轴(但不是某些图表)进行自定义:https://developers.google.com/chart/interactive/docs/gallery/timeline和https://developers.google.com/ chart/interactive/docs/customizing_tooltip_content.

角色晕影 - https://cran.r-project.org/web/packages/googleVis/vignettes/Using_Roles_via_googleVis.html - 此处突出显示Shiny - googlevis:gvisPieChart的工具提示显示如何为许多图表自定义工具提示googlevis包但不包括gvisTimeline.

检查gvisgithub上的文件(https://github.com/mages/googleVis/blob/master/R/gvis.R)表明包含的任何变量tooltip都将发送到Google Chart API.盲目地我试图将工具提示包括在一个gvisTimeline情节中,如下所示,但无济于事:

datTL <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)),
                    Name=c("Washington", "Adams", "Jefferson",
                           "Adams", "Jefferson", "Burr"),
                    start=as.Date(x=rep(c("1789-03-29", "1797-02-03", 
                                          "1801-02-03"),2)),
                    end=as.Date(x=rep(c("1797-02-03", "1801-02-03", 
                                        "1809-02-03"),2)),
                    Position.html.tooltip=c(rep("cats",6)))

Timeline <- gvisTimeline(data=datTL, 
                         rowlabel="Name",
                         barlabel="Position",
                         start="start", 
                         end="end") …

该sf软件包提供了一个很好的方式与地理特征的工作,但我不能想出一个简单的等同于poly.counts从功能GISTools包里面的欲望sp对象.

poly.counts计算a SpatialPointsDataFrame的多边形内的落点数SpatialPolygonsDataFrame,可以按如下方式使用:

数据

## Libraries
library("GISTools")
library("tidyverse")
library("sf")
library("sp")
library("rgdal")
## Obtain shapefiles
download.file(url = "https://www2.census.gov/geo/tiger/TIGER2016/STATE/tl_2016_us_state.zip", destfile = "data-raw/states.zip")
unzip(zipfile = "data-raw/states.zip", exdir = "data-raw/states")
sf_us_states <- read_sf("data-raw/states")

## Our observations:
observations_tibble <- tribble(
  ~lat, ~long,
31.968599,  -99.901813,
35.263266,  -80.854385,
35.149534,  -90.04898,
41.897547,  -84.037166,
34.596759,  -86.965563,
42.652579,  -73.756232,
43.670406,  -93.575858
)

计算每个多边形的点数

我生成了两个sp对象:

sp_us_states <- as(sf_us_states, "Spatial")

observations_spdf <- observations_tibble %>%
  select(long, lat) %>% # …

我从Mathematica转到R,在输入过程中我不需要预测数据结构,特别是在导入之前我不需要预测数据的矩形.

我有很多文件.csv文件格式如下:

tasty,chicken,cinnamon
not_tasty,butter,pepper,onion,cardamom,cayenne
tasty,olive_oil,pepper
okay,olive_oil,onion,potato,black_pepper
not_tasty,tomato,fenugreek,pepper,onion,potato
tasty,butter,cheese,wheat,ham

行具有不同的长度,仅包含字符串.

在R中,我该如何处理这个问题？

你试过什么？

我尝试过read.table:

dataImport <- read.table("data.csv", header = FALSE)
class(dataImport)
##[1] "data.frame"
dim(dataImport)
##[1] 6   1
dataImport[1]
##[1] tasty,chicken,cinnamon
##6 Levels: ...

我从文档中将其解释为一个单独的列,每个成分列表作为一个独特的行.我可以按如下方式提取前三行,每行都class factor包含但看起来包含的数据多于我的预期:

dataImport[c(1,2,3),1]
## my rows
rowOne <- dataImport[c(1),1];
class(rowOne)
## "factor"
rowOne
## [1] tasty,chicken,cinnamon
## 6 Levels: not_tasty,butter,cheese [...]

这就是我现在所追求的这个问题,我希望read.table对这个数据结构的适用性提出建议.

我的目标是按每行的第一个元素对数据进行分组,并分析每种类型的配方之间的差异.如果它有助于影响数据结构建议,在Mathematica中我会做以下事情:

dataImport=Import["data.csv"];
tasty = Cases[dataImport, {"tasty", ingr__} :> {ingr}]

回答讨论

@ G.Grothendieck提供了使用read.table和后续处理的解决方案reshape2- 这看起来非常有用,我稍后会进行调查.这里的一般建议解决了我的问题,因此接受.

@ MrFlick建议使用该 …

我正在使用该googlesheets软件包（CRAN版本，但可从此处获取：https : //github.com/jennybc/googlesheets）从R中的Google表格中读取数据，但现在想添加行。不幸的是，每次gs_add_row用于现有工作表时，都会出现以下错误：

Error in gsheets_POST(lf_post_link, XML::toString.XMLNode(new_row)) : 
  client error: (405) Method Not Allowed

我按照Github上的教程创建工作表并添加行，如下所示：

library(googlesheets)
library(dplyr)
df.colnames <- c("Project Short Name","Project Start Date","Proj Stuff")
my.df <- data.frame(a = "cannot be empty", b = "cannot be empty", c = "cannot be empty")
colnames(my.df) <- df.colnames
## Create a new workbook populated by this data.frame:
mynewSheet <- gs_new("mynewsheet", input = my.df, trim = TRUE)
## Append Element
mynewSheet <- mynewSheet %>% gs_add_row(input = c("a","b","c"))
mynewKey …