我有一个列表，看起来有很多部分。我的目标是将每个$section中的值替换为 NA。不过我想保留标题。
该列表如下所示：
$href
[1] "https://api.spotify.com/v1/albums/4vucVTj5GjNV0MllVjsxo5/tracks?offset=0&limit=50"
$items
artists
1 https://open.spotify.com/artist/2ueoLVCXQ948OfhVvAy3Nn, https://api.spotify.com/v1/artists/2ueoLVCXQ948OfhVvAy3Nn, 2ueoLVCXQ948OfhVvAy3Nn, Perfume Genius, artist, spotify:artist:2ueoLVCXQ948OfhVvAy3Nn
2 https://open.spotify.com/artist/2ueoLVCXQ948OfhVvAy3Nn, https://api.spotify.com/v1/artists/2ueoLVCXQ948OfhVvAy3Nn, 2ueoLVCXQ948OfhVvAy3Nn, Perfume Genius, artist, spotify:artist:2ueoLVCXQ948OfhVvAy3Nn
available_markets
1 AD, AR, AT, AU, BE, BG, BO, BR, CA, CH, CL, CO, CR, CY, CZ, DE, DK, DO, EC, EE, ES, FI, FR, GB, GR, GT, HK, HN, HU, ID, IE, IS, IT, JP, LI, LT, LU, LV, MC, MT, MX, MY, NI, NL, NO, NZ, PA, PE, PH, PL, PT, PY, SE, SG, SK, SV, TR, TW, US, UY
2 AD, AR, AT, AU, BE, BG, BO, BR, CA, CH, CL, CO, CR, CY, CZ, DE, DK, DO, EC, EE, ES, FI, FR, GB, GR, GT, HK, HN, HU, ID, IE, IS, IT, JP, LI, LT, LU, LV, MC, MT, MX, MY, NI, NL, NO, NZ, PA, PE, PH, PL, PT, PY, SE, SG, SK, SV, TR, TW, US, UY
disc_number duration_ms explicit
spotify
1 1 166946 FALSE https://open.spotify.com/track/2QX2OeVkckAavMTJtbV7GX
2 1 224620 FALSE https://open.spotify.com/track/15yWH0t80xio9hCjOZpalj
href
id
1 https://api.spotify.com/v1/tracks/2QX2OeVkckAavMTJtbV7GX 2QX2OeVkckAavMTJtbV7GX
2 https://api.spotify.com/v1/tracks/15yWH0t80xio9hCjOZpalj 15yWH0t80xio9hCjOZpalj
name
1 Slip Away - Recorded at Spotify Studios NYC
2 Body's In Trouble - Recorded at Spotify Studios NYC
preview_url track_number type
1 https://p.scdn.co/mp3-preview/fc1e8a296749237d7558ecc09bc5244251d033de?cid=c432b36c21724d2989baf7d4d8a6bfd3 1 track
2 https://p.scdn.co/mp3-preview/ac154324daedaff11d9806367bc980293dfb491b?cid=c432b36c21724d2989baf7d4d8a6bfd3 2 track
uri
1 spotify:track:2QX2OeVkckAavMTJtbV7GX
2 spotify:track:15yWH0t80xio9hCjOZpalj
$limit
[1] 50
$`next`
named list()
$offset
[1] 0
$previous
named list()
$total
[1] 2
如何将此列表转换为每行只有 NA 值，如下所示？
$href
[1] NA
$items
artists
1 NA
2 NA
available_markets
1 NA
2 NA
disc_number duration_ms explicit
spotify
1 NA
2 NA
href
id
1 NA
2 NA
name
1 NA
2 NA
preview_url track_number type
1 NA
2 NA
uri
1 NA
2 NA
$limit
[1] NA
$`next`
NA
$offset
[1] NA
$previous
NA
$total
[1] NA
任何帮助都将有助于解决此问题。我知道如何替换数据帧的值，但不知道如何替换列表的值。
谢谢！
我认为这可以做到：list_2 <- purrr::map(list_1, ~replace(.x, !is.na(.x), NA))