@@ -108,22 +108,6 @@ is_rstudio_deb_available <- function(rstudio_version, ubuntu_series) {
108108}
109109
110110
111- # ' Get the latest CTAN URL for a given date
112- # ' @param date A [Date] class vector.
113- # ' If `NA`, the "latest" URL will be returned.
114- # ' @return A character of CTAN URL.
115- # ' @examples
116- # ' latest_ctan_url(as.Date(c("2023-10-30", NA)))
117- latest_ctan_url <- function (date ) {
118- .url <- dplyr :: if_else(
119- is.na(date ), " https://mirror.ctan.org/systems/texlive/tlnet" ,
120- stringr :: str_c(" https://www.texlive.info/tlnet-archive/" , format(date , " %Y/%m/%d" ), " /tlnet" )
121- )
122-
123- .url
124- }
125-
126-
127111# ' Paste each element of vectors in a cartesian product
128112# ' @param ... Dynamic dots. Character vectors to paste.
129113# ' @return A character vector.
@@ -195,7 +179,6 @@ rocker_versioned_args <- function(
195179 dplyr :: semi_join(df_available_rstudio , by = c(" ubuntu_series" , " rstudio_version" )) | >
196180 dplyr :: slice_max(rstudio_version , with_ties = FALSE , by = c(r_version , ubuntu_series )) | >
197181 dplyr :: mutate(
198- ctan = latest_ctan_url(r_freeze_date ),
199182 cran = purrr :: pmap_chr(
200183 list (r_freeze_date , ubuntu_series , r_version ),
201184 \(... ) latest_p3m_cran_url_linux(... )
@@ -209,7 +192,6 @@ rocker_versioned_args <- function(
209192 ubuntu_version ,
210193 cran ,
211194 rstudio_version ,
212- ctan ,
213195 r_major_latest ,
214196 r_minor_latest
215197 )
@@ -224,8 +206,6 @@ dplyr::add_row(
224206 ubuntu_series = " latest" ,
225207 cran = " https://cloud.r-project.org" ,
226208 rstudio_version = x $ rstudio_version | >
227- utils :: tail(1 ),
228- ctan = x $ ctan | >
229209 utils :: tail(1 )
230210))()
231211
0 commit comments