小编ear*_*box的帖子

我正在创建一个 R 包，它提供了一些帮助函数来构建一个 Shiny 应用程序。

应用打包的其中一个JS文件需要引用一个图片文件。但我不知道如何引用它。

目前，js文件位于

my_package/inst/www/js/my_jsfile.js

这个文件需要参考

my_package/inst/www/img/my_img.gif

在 JS 文件中，图片的相对 URL 应该是什么？

在使用该软件包构建的 Shiny 应用程序中启动时，我尝试了各种选项，例如以下选项，但这些选项不起作用：

../my_img.gif

www/img/my_img.gif

我的 JS 看起来像这样：

function showRecordingIcon() {

  var img = document.createElement("img");
  img.style.display = "block";
  img.src =  "img/record.gif";
  img.width = "280";
  img.height = "280";
}

这是在我打包之前工作的。

如何重新创建以下内容，以便不需要复制 geom_segment 行，而是以编程方式生成多个 geom_segment 调用（因此，可以使用许多不同的数据帧，这些数据帧的行数可能有所不同）？

library(ggplot2)
library(tibble)

df <- tibble::tibble(freqs = c(261.6256, 293.6648, 329.6276, 293.6648, 329.6276, 349.2282, 391.9954, 349.2282, 329.6276,
                       293.6648, 329.6276, 293.6648, 329.6276, 349.2282, 391.9954), 
             durs =  c(0.96, 1.92, 3.84, 4.80, 5.76,  7.68, 8.64, 9.60, 10.56, 11.52, 12.00, 12.48, 12.96, 13.44, 15.36))
df2 <- df

ggplot2::ggplot(df, ggplot2::aes(x = durs, y = freqs)) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[1],xend=df2$durs[2],y=df2$freqs[1],yend=df2$freqs[1])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[2],xend=df2$durs[3],y=df2$freqs[2],yend=df2$freqs[2])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[3],xend=df2$durs[4],y=df2$freqs[3],yend=df2$freqs[3])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[4],xend=df2$durs[5],y=df2$freqs[4],yend=df2$freqs[4])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[5],xend=df2$durs[6],y=df2$freqs[5],yend=df2$freqs[5])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[6],xend=df2$durs[7],y=df2$freqs[6],yend=df2$freqs[6])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[7],xend=df2$durs[8],y=df2$freqs[7],yend=df2$freqs[7])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[8],xend=df2$durs[9],y=df2$freqs[8],yend=df2$freqs[8])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[9],xend=df2$durs[10],y=df2$freqs[9],yend=df2$freqs[9])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[10],xend=df2$durs[11],y=df2$freqs[10],yend=df2$freqs[10])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[11],xend=df2$durs[12],y=df2$freqs[11],yend=df2$freqs[11])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[12],xend=df2$durs[13],y=df2$freqs[12],yend=df2$freqs[12])) +
  ggplot2::geom_segment(ggplot2::aes(x=df2$durs[13],xend=df2$durs[14],y=df2$freqs[13],yend=df2$freqs[13])) + …